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Honorable Commissioner for Patents 
P.O. Box 1450 
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We, the undersigned, Sharon Duvdevani, Tally Gilat-Bemshtein, Eyal Klingbell, Meir 
Mayo, Shmuel Rippa, and Zeev Smilansky hereby declare as follows: 

1) We are the co-inventors of the subject matter described and claimed in claims 1 - 
16 of the patent application identified above. 

2) Prior to filing the patent application identified above, we were employed by the 
Assignee. Orbotech Ltd., and/or its predecessor Orbot Systems Ltd as software engineers. 
Our duties for the Assignee, prior to filing the patent application, included, inter alia, the 
development and implementation of software systems performing the functionalities 
described and claimed in the subject Application in systems for inspecting lead frames, and 
eventually ball grid array substrates, being developed at the time by the Assignee. 

3) Prior to February 5, 1998, we completed the invention described and claimed in the 
subject application, inter alia, by developing working software code. One of the systems 
developed by the Assignee evidencing completion of the invention was an adaptation of 
software that we developed, performing the functionalities described and claimed in the 
subject Application for the inspection of ball grid array substrates. We did our work in Israel, 
a WTO country. 

4) Appendix A contains a paper written by co-inventor Shmuel Rippa on or before 
October 29, 1996 entitled, "SIP Tests in Windows", and stored as a computer file under the 
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name "sip_tests Jn_windows.fm*". "SIP" is an acronym for "Software Image Processing" 
Appendix A is part of system documentation for a generic model for a software defect 
detection package implementing the invention described and claimed in the subject 
application. 

We have printed Appendix "A" without making any modification whatsoever to the 
document as stored on the Assignee's computer system. The date appearing in the header of 
Appendix A is automatically inserted by a date field to display the date upon which the 
document was printed. A screen shot of the computer directory in which Appendix A is 
stored is contained in Appendix B and indicates that Appendix A was last modified on 
October 29, 1996. 

5) Appendix C contains a paper written by co-inventor Shmuel Rippa and printed out 
on or before June 28. 1998. "ICP" is an acronym for "Integrated Circuit Packaging" and is 
the name of a project of Assignee for inspection equipment designed to inspect ball grid array 
substrates, a type of integrated circuit packaging. We designed ICP inspection equipment to 
employ software inspection as described and claimed in the subject application. 

6) Appendix D contains working software code, written in the "C" programming 
language, implementing a task packer for assigning inspection tasks to portions of interest in 
an image of an electrical circuit to be inspected, as referenced in Appendices A and C. 

7) Appendix E contains working software code, written in the "C" programming 
language, implementing a task manager for managing the execution of inspection tasks 
assigned to portions of interest by the Code in Appendix D. The software programs in 
Appendices D & E are part of, and are run with, a suite of software programs performing 
defect detection during the inspection of ball grid array substrates. Other programs in the 
suite of programs include, without limitation, various configuration files and specific 
inspection tasks assigned by a task packer employing a task packer helper as in Appendix D 
to portions of interest for inspecting corresponding portions of an electrical circuit to be 
inspected. 
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8) As evidenced by the revision log appearing on page 30 et seq. of Appendix D, 
Version 1,1 of the code in Appendix D is dated February 18, 1997. According to the 
Assignee's practice, only working and reviewed versions of code were numbered. As further 
evidenced by the revision log, this code was regularly updated at least until February 20, 
2001. 

As evidenced by the revision log appearing on page 15 et seq. of Appendix E, Version 
1.1 of the code in Appendix E is dated October 29, 1996. According to the Assignee's 
practice, only working and reviewed versions of code were numbered. As further evidenced 
by the revision log, this code was regularly updated at least until February 7, 2000. 



9) The following table shows the correspondence between the elements of the system 
claims in the present patent application and elements of the material in appendices. 



Claim 1 


Appendices 


1. An electrical circuitry inspection method 
comprising: 


The entire document, evidenced with 
particularity at the illustration on page 7 of 
Appendix A, marked "A". 


for each of a plurality of types of local 
characteristics, each type occurring at least 
once within electrical circuitry to be inspected, 
identifying at least one portion of interest 
within the electrical circuitry whereat said 
local characteristic is expected to occur; 


The illustration on page 7 of Appendix A 
marked "A", the text at page 2 of Appendix A 
marked "B" and the text at page and the text at 
page 4 of Appendix A marked "C". 


and inspecting an image of each portion of 
interest, using an inspection task selected in 
response to the type of local characteristic 
expected to occur in the portion of interest. 


The text at pages 4 & 5 of Appendix A marked 
"D" in combination with the text at page 4 of 
Appendix A marked "C". 


Claim 2 


Appendices 
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2. A method according to claim 1, wherein said 
plurality of types of local characteristics 
includes at least one of the following types: a 
bonding pad; a ball structure; a target; a chip 
area. 


The text at page 5 of Appendix C marked "E". 


Claim 3 


Appendices 


3. A method according to claim 1, wherein said 
identifying of at least one portion of interest 
comprises identification of at least one spatial 
region within said electrical circuitry. 


The illustration on page 7 of Appendix A, 
marked "A". 


Claim 4 


Appendices 


4. A method according to claim 3, wherein said 
identification of at least one spatial region is at 
least partly based on a user input. 


The text at page 4 of Appendix A marked "C". 


Claim 5 


Appendices 


5 A method acrrirrlino' tn r*lflim \A/h<»r<»in csiiH 

identification of at least one spatial region is at 
least partly based on a computer generated 
input. 


1 ne lexi at page 4 or Appendix A marRed C . 


Claim 6 


Appendices 


6. A method according to claim 4, wherein said 
identification of at least one spatial region is at 
least partly based on a computer generated 
input. 


The text at page 4 of Appendix A marked "C". 
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Claim 7 


Appendices 


7, A method according to claim I, and also 
vuliipi laiiig cuuipuicr-abbignmg an inspection 
task to at least one individual portion of 
interest in response to the type of local 
characteristic expected to occur in the 
individual portion of interest. 


The text at page 4 & 5 of Appendix A marked 

c and L) . 1 ext at page 3 or Appendix C 
marked "F\ Appendix D is software code of a 
task manager for assigning a type dependent 
inspection task to portions of interest. 


Claim 8 


Appendices 


8. A method according to claim 1, and also 
comprising outputting at least one indication of 
defects responsive to said inspecting step. 


Text at pages 4 & 5 of Appendix A marked 



10) Claims 9-16 recite apparatus for inspecting electrical circuits with limitations 
similar to those of system claims 1-8. Based on the similarity of subject matter between the 
apparatus and method claims for inspecting electrical circuits, it can similarly be 
demonstrated that the invention recited in claims 9-16 was conceived and reduced to 
practice prior to July 28, 1999. 

We hereby declare that all statements made herein of our own knowledge are true and 
that all statements made on information and conjecture are thought to be true; and further that 
these statements were made with the knowledge that willful false statements and the like so 
made are punishable by fine or imprisonment, or both, under Section 1001 of Title 18 of the 
United States Code and that such willful false statements may jeopardize the validity of the 
application of any patent issued thereon. 
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Date: O^C.^.o^ 



Sharon Duvdevani, Citizen of Israel 
Signature: 

Address: P^louv St. Kg^ Uerel^ -f^^ Israel 



,2005 



Tally Gilat-Berstein, Citizen of Israel 



Date: 



^,2005 



Signature: 
Address: 



St. 



Israel 



Eyal Klingbell, Citizen of Israel 

Signature: 

Address: 



Date: 



St. 



_,2005 



^, Israel 



Meir Mayo, Citizen of Israel 



Date: 



.,2005 



Signature: 
Address: 



Shmuel Rippa, Citizen of Israel 



Signature: 



St. 



Israel 



Date: / ^ 



_,2005 



Address: C^o^vR M St. 1^ ^"^Jj [hPCk . Israel 



Zeev Smilansky, Citizen of Israel 



Date: 



_,2005 



Signature: 
Address: 



St. 



, Israel 
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APPENDIX "D" 



#include "taskjpacker .H" 

#include <cstciio> 
iinclude <cstdlib> 
# include <cmath> 
using namespace std; 

#inciude " sip__logger . H" 
# include "sip_f actory . H" 
# include "sip_conf ig . H" 

#include " sip_general_data . H" 
#include "sip_perf_meter .H 
#include "cel_event . H" 
#include "cel.H" 

tinclude "sipwinpack. H" 

// add a factoryJo._Tas.^data3-_-_^er_to_list^ 
stItirRegIsterlsubclass<Task_packer> r; 

// constructor 

is_event_marked (NULL) 

{ 
} 



// Destructor ^ 

iask^packer: : -Taskjpacker 0 

{ 
} 

const char * Task.packer : ;Type () const 
return "Taskjpacker ; 

} 



/// 

iS€ 

return new Taskjpacker; 



Base_factory * Taskjpacker :: DoCreate () const 
{ 



} 



// DoLoadConfiguration 

i;!;;:r^Z^O^^i^^^^^^^ Slp.conflg . conflg ) 



^ ~ker helper. Load (config) ) { 

mlog (LOG_d5rIVED_ERROR, "DoLoadConf a.guratxon : ) , 



if ( !packer_r 



DoClear 0 ; 
return false; 
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// 

// Check that all data sources used and produced are as expected 
// For each data source used by packer, set the delay in 
// ds_used_space_above vector.' This means that the 

// task can work on line y only if we have all the lines in data sources 

// from line y up to line y + ds_used_space_above [i_feature] 

// 

if ( (v_ds_produced. size () ~ 1) && (v_ds_produced [0] ->IsType ( "Win_queue" ) ) ) 
{ 

ds_queue = (Win_queue * ) (v_ds_produced[0] ) ; 

} 

else 
{ 

mlog (LOG_APPLIC_ERROR/ "DoLoadConf iguration : " 

"Task %s : Illegal list of produced data sources.", NameO); 
return false; 

} 

// 

// Setting priorities and size of window 

// 

max_window_size = packer_helper .max_window_size; 
min_priority = packer_helper . min_priority; 
max^priority = packer_helper . max_priority; 

s_width = max_window_size * (max_priority - min_priority + 1 ) ; 

if ( min_priority 1 ) 

{ 

mlog {LOG_APPLIC_ERROR, "DoLoadConf iguration : " 

"Task %s : min_priority {%d) should be equal to 1." 

,Name () , min_priority) / 
return false; 

} 

if { max_priority < min_priority ) 
{ 

mlog (L0G__APPLIC_ERROR, "DoLoadConf iguration : " 

"Task %s: max_priority (%d) should be " 

"greater than or equal to 1." 

, Name ( ) , max_priority) ; 
return false; 

} 

mlog {LOG_STANDARD, "DoLoadConf iguration : " 

"Task %s: min/max_priority = %d/%d \n " 

" max_window_size/s_width = %d/%d." 

, Name () , min^priority, max_priority, max_window_size, s_width) ; 



// 

// Search for Cel data source. 

// 

int n_used = 0; 

int i_cel = IndexOf DataSourceByType (v_ds_used_sync, "Ds__array<Cel>", 0) ; 

if ( i_cel == -1 ) 

{ 

ds_cels = NULL; 

} 

else 



2 



APPENDIX "D" 



{ 

ds_cels = (Ds_array<Cel> * ) (v_ds_useci_sync [ i_cel ] ) ; 
++n_used; 

) 

// 

// Search for Color_cel data source. 

// 

int i_color_cel = IndexOf DataSourceByType (v_ds_used_sync, 

"Ds_array<Color_cel>" , 

0); 

if ( i__color_cel == -1 ) 
{ 

ds_color_cels = NULL; 

) 

else 
{ 

ds_color__cels = (Ds_array<Color__cel> *) <v_ds_used_sync [i_color_cel] ) ; 
++n_used; 

} 

// 

// Run over all features data sources (if any) . For each data source found, 
// 

ds_f eatures . clear ( ) ; 
ds_f eatures . reserve (10) ; 
int i = -1; 

while ( (i = IndexOf DataSourceByType (v__ds_used_sync, 

"Ds_array<Feature>", i+1) ) >= 0) 

{ 

ds_f eatures .push_back ( (Ds_array<Feature> * ) (v_ds_used_sync [ i] ) ); 

ds__used_space_above [i] = s_width; 

++n__used; 

} 

// 

// Run over all defects data sources (if any) . For each data source found, 

// 

ds_def ects . clear ( ) ; 
ds_defects .reserve (10) ; 
i = ~1; 

while ( (i = IndexOf DataSourceByType (v_ds_used_sync, 

"Ds_array<Defect>", i+1) ) >= 0) 

{ 

ds_defects.push_back: ( (Ds_array<Def ect> *) (v_ds_used_sync [i] ) ); 

ds_used_space_above [i] = s_width; 

-f-+n_used; 

} 

// 

// search for a Width_defect data source. The index of the feature 
// in the vector of used data sources is i_width_def ect 

// 

int i_width_def ect 

= IndexOf DataSourceByType (v__ds_used_sync, "Ds_array<Width_def ect>" , 0) ; 
if ( i_width_defect == -1 ) 
{ 

ds width defect = NULL; 
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} 

else 
{ 

ds_wicith_cief ect = 

(Ds_array<Width_def ect> *) (v_ds_used_sync [ i_width_def act ] ) ; 
ds_used_space_above [ i_width_defect] = s_width; 
++n_used; 

} 



// 

// search for a Color_defect data source. The index of the feature 
// in the vector of used data sources is i_color_defect 

// 

int i_color_defect 

= IndexOf DataSourceByType (v_ds__used_sync, "Ds_array<Color_def ect>" , 0) ; 
if ( i_color_defect =- -1 ) 
{ 

ds_color_def ect = NULL; 

} 

else 
{ 

ds_color_def ect = 

(Ds_array<Color_def ect> *) (v_ds_used_sync [i_color_def ect ] ) ; 
ds_used_space_above [i_color_defectl = s_width; 
++n used; 



// 

// search for Af f ine2dtrans data source. The index of the feature 
// in the vector of used data sources is i_trans 

// 

int i_trans = IndexOf DataSourceByType (v_ds_used_sync, 

"Ds_trans<Af fine2dtrans>", 0) ; 

if ( i_trans == -1 ) 
{ 

ds_trans = NULL; 

} 

else 
{ 

ds_trans = (Ds_trans<Af f ine2dtrans> *) (v_ds_used_sync [i_trans] ) ; 
ds_used_space_above [i_transl = s_width; 
++n used; 



// 

// Verify that all used data sources where handled. 

// 

if ( v_ds_used_sync. size ( ) 1= (unsigned) n_used ) 

{ 

mlog (LOG_APPLIC_ERROR, "DoLoadConf iguration : " 
"Task %s : " 

"Number of data sources used <%d) is not as expected (%d).". 
Name ( ) , v_ds_used_sync . size ( ) , n_used) ; 
return false; 

} 
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// 

// Make sure that the task is related to a single coordinate system, 
// that is all data sources produced and consumed by the task are 
// from the same coordinate system. 

// 

if ( ! (IsUsedCoordinateSystemOkO ) ) 
{ 

mlog (LOG_APPLIC_ERROR, "DoLoadConf iguration : " 
"Task %s : " 

"All used data sources must " 
"be from the same coordinate system. ", 
Name ( ) ) ; 
return false; 

} 

if ( I GetCameraAlignedTrans formations ( UsedCoordinate_System ( ) ^ 
aligned2camera, camera2aligned ) ) { 
mlog (LOG__APPLIC_ERROR, 

"DoLoadConf iguration : " 
"Task %s : " 

"All used data sources must " 
"be from a Camera coordinate system. "^ 
Name ( ) ) ; 
return false; 

} 

if ( UsedCoordinate_System() . Id() < 0 ) { 
mlog (LOG_APPLIC_ERROR, 

"DoLoadConf iguration : " 
"Task %s : " 

"The camera cordinate system of all used data sources must " 
"have a non negative index (current idex = %d) . ", 
Name ( ) , UsedCoordinate_System ( ) . Id ( ) ) ; 
return false; 

} 

// Get client_id from camera_id. 

client_id = (unsigned int) UsedCoordinate__System ( ) . Id ( ) ; 

// 



// If we arrive safely to this line, it means that the task uses only data 
sources 

// from the same camera. 

// 



// 



// Allocate memory 

// 

int largest_line_in_scan = Sip_general_data : : Largest_line_in_scan ( 
UsedCoordinate_System 0 ); 

if ( ! (largest_line_in_scan > 0) ) { 

mlog (LOG_APPLIC_ERROR, "DoLoadConf ig : " 

"Task %s : Cannot handle zero or negative largest line(%d).", 
NameO , large st_line_in_scan) ; 
return false; 
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} 

max_v_size = largest_line_in_scan- + 1; 

events_in_iine . reserve (max_v_size) / 

for ( int i = 0; i < max_v_size; ++i ) { 

events_in_line .push_back ( list<Unif ied_event> ( ) ); 

} 

int max_line__si2e = Sip_general_data : : Largest_pixel__in_line ( 
UsedCoordinate_System ( ) ); 

if ( ! (max_line_size > 0) ) { 

mlog (LOG__APPLIC_ERR0R, "DoLoadConf ig : " 

"Task %s : Cannot handle zero or negative max line size(%d).", 

NameO ,max_line_size) ; 
return false; 

} 

is_event_marked = new bool [max_line_size+l ] ; 

if ( ! is_event_marked ) 

{ 

mlog (LOG_ALLOC_ERROR, "DoLoadConf iguration : " 

"Task %s : Not enough memory Name ()) ; 
DoClear ( ) ; 
return false; 

} 

priority_i_line = new int [max_priority + 1]; 

if ( ! priority_i_line ) 

{ 

mlog (LOG_ALLOC_ERROR, "DoLoadConf iguration : " 

"Task %s : Not enough memory Name ()) ; 
DoClear () ; 
return false; 

} 

int xwidth_of_unrelevant_strip = 20; 
int ywidth_of__unrelevant_strip = 5; 

int cxO = Sip_general_data : : Smallest_pixel_in_line { UsedCoordinate_System ( ) 
int cxl = Sip_general_data : : Largest_pixel_in_line ( UsedCoordinate_System ( ) ) 
int cyO = Sip_general_data : : Smallest_line_in_scan ( UsedCoordinate_System ( ) ) 
int cyl = Sip_general_data : : Largest_line__in_scan < UsedCoordinate_System ( ) ); 
relevant^window.xO = cxO + xwidth_of_unrelevant_strip; 
relevant_window.xl = cxl - xwidth_of_unrelevant_strip; 
relevant_window.yO = cyO + ywidth_of_unrelevant_strip; 
relevant_window.yl = cyl - ywidth_of_unrelevant_strip; 

return true; 



// DoClear: Undo DoLoadConf iguration . This function must work even if 

// called before DoLoadConf iguration or after error in DoLoadConf iguration 
// 

bool Task_packer: : DoClear ( ) 

{ 

packer_helper .Clear () ; 
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ds_ceis 
ds_color_cels 
ds_width_def ect 
ds color defect 



NULL 
NULL 
NULL 
NULL 



ds_def ects . clear ( ) ; 
ds_f eatures . clear ( ) ; 
events_in_line . clear ( ) ; 
onl_td_events . Clear ( ) ; 

if ( is__event_marked ) { 
delete [] is_event_marked; 
is_event_marked = NULL; 

} 

if ( prior ity_i_line ) { 
delete [] priority_i_line; 
priority_i_line = NULL; 

} 

// just to make sure 
if ( e_windows ) { 

delete e_windows; 

e_windows = NULL; 

} 

// clear relevant window 
relevant_window . xO = 0/ 
relevant_window . xl = 0; 
relevant_window . yO =0; 
relevant_window.yl =0; 

return true; 

} 



// DoInitScan 

// 

bool Task_packer: : DoInitScan ( ) 
{ 

int largest_line_in_scan = Sip_general_data : : Largest_line_in_scan ( 
UsedCoordinate_System ( ) ) ; 

if ( ! onl_td_events .Alloc (largest_line_in_scan+l) ) 
{ 

mlog (LOG_ALLOC_ERROR, "DoLoadConf iguration : " 

"Task %s : Not enough memory ." ^ Name ()) ; 
return false; 

} 



if ( !packer_helper . InitScan 0 ) { 

mlog (LOG_DERIVED_ERROR, "DoInitScan : ") ; 
return false; 

} 

// assign an intersect line for each priority 
e_windows = new EWindows ( ) ; 
if ( !e_windows ) { 
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mlog (LOG_ALL0C_ERR0R, "DoLoadConf iguration" ) ; 
return false; 

) 

for ( int priority = 0; priority <= max_priority ; +-fpriority ) { 
priority_i_line [priority! = e_windows->RequestIntersectLine () ; 

} 

cels_i_line = e_windows->RequestIntersectLine ( ) ; 



f irst_time_f lag = true; 
last_empty_line = -999; 

return true; 



// undo InitScan 

// 

bool Task_packer : : DoUnlnitScan ( ) 
{ 

if ( e_windows ) { 
delete e_windows; 
e_windows = NULL; 

} 

onl_td_events . Clear < ) ; 
packer_helper .UnlnitScan {) ; 
return true; 



// 

bool Task_packer : : DoProcessLines ( int first_line,r 

int last_line, 

bool end_flag) 

{ 

if ( ds_trans && ds_trans->DsTransIsEnipty () ) { 
mlog (LOG_APPLIC_ERROR, "DoProcessLines : " 

"Task %s : Transformation data source %s is empty " 

" - does not contain any transformation. 

Name ( ) , ds_trans->Name ( ) ) ; 
return false; 

} 

// get all non fixed top down events (stored in the ref coordinate system) 
// into onl__td_events [y] for all lines y needed by the packer. The range of 
// lines needed is determined by the structure of the packer algorithms (see 
// methods ProcessEventslnFirstLine and ProcessEventsInLine) . 

// onl_td_events [y] contains an ordered list of all non fixed top down events 
// (in online coordinate system) defined for line y. 

// the range of lines needed is [ td_f irst_line, td_last_line] and is stored 
// in local variables to allow sanity checks in method 
// FillEventsListFromTopDown . 

int largest_line_in_scan = Sip_general_data : :Largest_line_in_scan ( 
UsedCoordinate_System () ); 

int largest_pixel_in_line = Sip__general_data :: Large st_pixel_in_l ine ( 
UsedCoordinate_System ( ) ); 

packer_helper .ComputeNeededTopDownLines ( f irst_line, last_line, 

largest_line_in__scan, largest_pixel_in__line, 
ds__trans, camera2aligned, aligned2camera. 
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td_f irst_line, td_last_line, 
onl_td_events) ; 

// do some special things on the first call on each scan 
if ( f irst_time_f lag ) { 
if ( first_line != 0 ) { 

mlog (LOG_APPLIC_ERROR, "DoProcessLines : " 

"Task %s : First line for processing (%d) not equal to 0.", 
Name () ) ; 
return false; 

} 

last__empty__line = first_line - 10; 

// Create fixed windows (windows whose locations are fully determined 
// before scan) . 

if ( !packer_helper .CreateFixedWindows ( last_line, ds_trans, client_id, 

camera2aligned, aligned2camera, 
e_windows ) ) 

{ 

mlog (L0G_DERIVED_ERROR^ " DoProcessLines : " ) ; 
return false; 

} 

// process events in first_line (y=0) 
mlog (LOG_ALL, "DoProcessLines: " 

"Processing events in first line (%d).", f irst_line) ; 
if ( ! ProcessEventsInFirstLine ( ) ) 
{ 

mlog (L0G_DERIVED_ERROR, "DoProcessLines : ") ; 
return false; 

} 

// let the loop that follows work on the rest of the lines 

++f irst_line; 

f irst_time_flag = false; 



// process events for the given range of lines 
for ( int y = first_line; y <= last_line; ++y ) 
{ 

// process events line line 

// plog (LOG_ALLr " Processing events in line %d.\n",y); 

if ( ! ProcessEventsInLine (y) ) 

{ 

mlog (LOG_DERIVED_ERROR, "DoProcessLines : ") ; 
return false; 

} 

} 

if ( end_flag ) 
{ 

// make sure to release all windows remaining in e^windows 

if ( ! ProcessLastLine (last__line) ) 

{ 

mlog (LOG_DERIVED_ERROR, "DoProcessLines : ") ; 
return false; 

) 
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} 

return true; 

} 



// 

// Handle all side effects of task during scan: 

// free allocations made during scan close files created during scan, etc. 
// 

bool Task_packer : iDoEndScan 0 

{ 

if (e_windows) { 

mlog (LOG_ALL, "DoEndScan : " 

"End of Scan for task %s . Number of unreleased (un tested) " 

"windows is %d.". 

Name ( ) , e__windows->size () ) ; 
} else { 

mlog (LOG_APPLIC_ERROR, "DoEndScan: e_windows is NULL."); 
return false; 

} 

return true; 

} 



// 

// process events for first line (y=0) . Needs all events on lines 

// y = 0, . . . , s_width = max_window_size * (max_priority - min__priority + 1 ) . 

// 

bool Task packer: : ProcessEventsInFirstLine () 
{ 

// Create ALL event windows (of all priorities) for lines 

// y = 0 r-./ max_window_size . This is accomplished by creating event 

// windows for 

// (1) all events of the max priority for lines 
// y == 0 , . . . , s_width 

// (2) all events of priority (max_priority - 1) for lines 
// y = 0 ,.../ s^width - max_window__size 

// . 
// . 
// . 

// 0 all events of the min priority (== 1) for lines 
// y = 0 max_window_size . 

// 

// NOTE : During the computation, lists of events of the given 
// priority are created. The lists of events of a given priority 
// on a given line y is merged into the list of all events for 
// that line (stored in the list events_in_line [ y ] 

// 

for ( int priority = max_priority; priority >= min_priority; — priority ) 
{ 

for ( int y = 0; y <= max_window_size* (priority-min_priority+l ) ; ++y ) 
{ 

// NOTE (side effects) 

// 1. Intersect_line for priority is moved to line y 
// 2. event_line for line y is updated to include all 
// events of priority 'priority'. 
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// 3, create new event windows for events of priority 

// 'priority* that are not inside previously created events. 

// 

if ( ! CreateEventWindowsForPriority (y, priority) ) 
{ 

mlog (L0G_DERIVED_ERROR, " ProcessEventsInFirs tLine : ") ; 

return false; 

} 

} 

} 

// add events of no priority to list of events for lines 
// y = 0^ . . . , max_window_size 

// 

for ( int y = 0; y <= max_window_size; ++y ) 
{ 

if ( ! AddEventsOfNoPriorityToEventsLine (y) ) 
{ 

mlog (LOG_DERIVED_ERROR, " ProcessEventsInFirstLine . ") ; 
return false; 

} 

} 

// pack all events intersecting line y into windows containing them 
if ( !PackInLine(0) ) { 

mlog (LOG_DERIVED_ERROR, "ProcessEventsInFirstLine : " ) ; 

return false; 

) 

// List of events for first line is no longer needed - clear it ! ! 
events_in_line [0] . clear () ; 

return true; 



// 

// Process all events in line y. 

// NOTE : The first call to this function must be with y = 1. 

// The n'th call to this routine mustr have y = n . 

// 

bool Task_packer : : ProcessEventsInLine ( int y ) 
{ 

// 

// Create ALL event windows (of all priorities) for line y. 

// This is accomplished by creating the event windows for 

// (1) all events of the max priority for line y + s_width 

// (2) all events of priority (max_priority - 1) for line 
// y + s_width - max_window_size . 

// . 

// . 

// . 

// () all events of the min_priority (=== 1) for line 

// y + max_window_size . 

// 

// NOTE : During the computation, lists of events of the given 

// priority are created. The lists of events of a given priority 

// on a given line y is merged into the list of all events for 



11 



APPENDIX "D" 



// that line (stored in the list pointed to by & ( (ev_data->events) [y] ) ) 

// 

for ( int priority = max_priority; priority >= min_priority / priority-- ) 
{ 

// 

// NOTE (side effects) 

// 1. Intersect_line for priority is moved to line line 

// 2. event_line for line 'line' is updated to include all 
// events of priority 'priority'. 

// 3. create new event windows for events of priority 

// 'priority' that are not inside previously created events. 
// 

int line = y + max_window_si ze* (pr iority-min__priority+l ) ; 

if ( ! CreateEventWindowsForPriority (line, priority) ) 

{ 

mlog (LOG_DERIVED_ERROR, "ProcessEventsInLine : " ) ; 
return false; 

} 

} 

// add events of no priority to list of events for line 
// y + max_window_si2e 

// 

if ( ! AddEventsOfNoPriorityToEventsLine (y + max_window_size) ) 
{ 

mlog (LOG_DERIVED_ERROR, "ProcessEventsInLine : ") ; 
return false; 

} 

// pack all events and C#ls in line y into windows containing them 

if ( !PackInLine( y ) ) 

( 

mlog(LOG_DERIVED_ERROR^ "ProcessEventsInLine : ") ; 
return false; 

} 

// clear list of events for line y which is no longer needed 
events_in_line [y] . clear (); 

return true; 



// 

// create event windows from events of the given priority on line y. 

// Does the following: 

// (1) Produces a list of events of the given priority. Mark all events 

// in this list. 

// (2) Moves intersect line assotiated with given priority to line y. 

// (3) Unmark all events from the list of events which are 'inside' 

// one or more (previously created) event windows. 

// (4). Create new event windows from all events that remain marked. 

// (5) Add list of events of the given priority to list of all events 

// in line y. 

// 

// NOTE : validity of input parameters is not tested. 

// 

bool Task_packer : iCreateEventWindowsForPriority (int y^int priority) 
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{ 

if ( y > Sip_general__data : : Largest_line_in__scan ( UsedCoordinate_System ( ) ) ) { 
return true; 

} 

// This list will contain all event of the given priority on line y 

// 

list<Unif ied_event> list_of_events ; 

// produce list__of_events : all events of priority apriority* in line y 

// all elements of is_event_marked corersponding to list_of_events are set 

// to true (these events are marked) 

// 

if ( ! CreateListOf Events { lis t_of_e vents, is_event__marked, y, priority ) ) 
{ 

// could not produce list of events of the given priority 
mlog (LOG_DERIVED_ERROR, "CreateEventWindowsForPriority : " ) ; 
return false; 



// do the following only if the list of events created is not empty 

// 

if ( ! lis t_of_events . empty ( ) ) 

{ 

// Moves intersection line connected to events of given priority 
// to line y 

// 

int index_i_line = priority_i_line [priority] ; 

if ( ! e_windows->MoveIntersectLineToLine (index_i_line, y) ) 

{ 

mlog (LOG_APPLIC_ERROR, "CreateEventWindowsForPriority: " 
"Task %s : Failed to move intersect line to line %d.". 
Name 0 , y) ; 

return false; 

} 

// unmark all events of line y that are 'inside' current event windows 
UnmarkEventsInsideWindows (list_of_events, is_event_marked, y, index_i_line) ; 

// create event windows from all marked events 

if ( lAddWindowsForMarkedE vents ( list_of_eventS/ is_event_marked, y ) ) 
{ 

mlog (LOG_DERIVED_ERROR, "CreateEventWindowsForPriority : " ) ; 
list_of_events . clear ( ) ; 
return false; 

} 

// merge 1 is t_of_e vents of priority 'priority' into line of events 
// containing all events on line y. 

// 

events_in_line [y] .merge ( list_of_events ); 

} 

return true; 



// 
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// Create events of no (zero) priority for line y and merge them with 
// all events already defined for line y. 

// ^ 

bool Task_packer : : AddEventsOfNoPriorityToEventsLine (int y ) 
{ 

if ( y > Sip_general_data : : Largest_line_in_scan ( UsedCoordinate_System ( ) ) ) { 
return true; 

) 

// This list will contain all event of the given priority on line y 
list<Unif ied_event> list_of_e vents; 
int no_priority =0; 

// produce list_of_events containing all events of no priority on line y 

if { ! CreateListOf Events ( list_of_e vents, is_event_marked, y, no_priority ) ) 

{ 

// could not produce list of events of the given priority 
mlog (LOG_DERIVED__ERROR, "AddEventsOf NoPriorityToEventsLine : ") ; 
return false; 

} 

// merge events of no priority with the rest of the events in line y 
events_in_line ty] .merge ( list_of_events ); 

return true; 

} 



// Pack events and CELs in line y 

// 

bool Task__packer : : PacklnLine ( int y) 
{ 

// Moves eels/features intersection line connected to line y 

// 

if ( !e_windows->MoveIntersectLineToLine (cels__i_line, y) ) 

{ 

mlog (LOG_APPLIC_ERROR, "PacklnLine: " 

"Failed to move intersect line to line %d.",y); 
return false; 

} 

PackEvents (cels_i_line, events__in_line [y] ) ; 
PackCels (y, cels_i_line, ds_cels) ; 
PackColorCels (y, cels_i_line, ds_color_cels) ; 

// Run over all windows having Yl coordinate equal to y (this list 
// is produced as a side effect of MovelntersectLineToLine) , 
// Notify on end of packing and push each packed window into the 
// queue. 

// 

if ( ! HandleReleasedWindows (y) ) { 

mlog (LOG_DERIVED_ERROR, "PacklnLine : " ) ; 

return false; 

} 

return true; 

} 
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// Release all windows remaining in system at end of scan. 

// 

bool Task_packer : : ProcessLastLine (int last_line) 

{ 

// Moves eels/features intersection line connected to line y 

// 

if { ! e__windows->MoveIntersectLinePastLastLine (cels__i__line) ) 

{ 

mlog (LOG_APPLIC_ERROR, "ProcessLastLine : " 

"Failed to move intersect line past last."); 
return false; 

} 

// Run over all remaining windows in the system 

// Notify on end of packing and push each packed window into the 
// queue. 

// 

if ( ! HandleReleasedWindows {last_line) ) 
{ 

mlog (LOG__DERIVED_ERROR, "ProcessLastLine : " ) ; 
return false; 

} 

return true; 



// Handle windows released after intersect cels_i_line line is moved 
// to some line. 

// 

bool Task_packer: : HandleReleasedWindows (int y_release ) 
{ 

// Run over the list of all windows having the same Yl coordinate. 
// this list 

// is produced as a side effect of MovelntersectLineToLine) . 

// Strangely, the same Y coordinate is equal to y_release-l unless 

// we got to the last window. 

// Notify on end of packing and push each packed window into the 
// queue. 

// 

vector<Sipwin *> v_out_windows; 

iht y_of__line = y_release; 

bool is_empty__line = true; 

e_windows->Lbegin ( ) ; 

while ( ! (e_windows~>Lend 0 ) ) { 

Event_window * ew = e_windows->Literator () ; 

Sipwinpack * winpack = (Sipwinpack *) (ew->win) ; 

// end of packing for winpack 

unsigned int n_events ' =0; 

unsigned int n_cels = 0; 

unsigned int n_skel = 0; 

unsigned int n_color_cels = 0; 

unsigned int n_color_junctions = 0; 

if ( ! (winpack->NotifyAllUnif iedEventsPacked (n_events) ) ) { 
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mlog (LOG_DERIVED__ERROR, "HandleReleasedWindows : ") ; 
return false; 

} 

if ( ds^cels ) { 

if ( ! (winpack->Notif yAllCelsPacked (n_cels, n__skel) ) ) { 
mlog (LOG_DERIVED_ERROR, "HandleReleasedWindows : ") ; 
return false; 
} 



if ( ds_color_cels ) { 

if ( ! (winpack->Notif yAllColorCelsPacked (n_color_cels, n_color_j unctions) ) 

) { 

mlog(LOG_DERIVED_ERROR, "HandleReleasedWindows: " ) ; 

return false; 

} 



// transfer window (including transfer of ownership) 

// from winpack to to queue. Then delete winpack that is no longer 

// needed, 

if ( winpack->do_pack_and_process ) { 
Sipwin * w = winpack->WithdrawWin 0 ; 
if ( w ) { 
mlog {LOG_ALL, 

"HandleReleasedWindows: window %s (%d,%d) — >(%d,%d) is packed " 
"with \n %d CELs \n %d colour_cels \n %d unified events.", 
w->Type ( ) , w->XO { ) , w->YO ( ) , w->Xl ( ) , w- 
>Yi 0 , n_ceis, n_color_cels, n_events) ; 

v_out_windows .push_back { w ); 
if ( is_empty__line ) { 

y_of_line = w->Yl(); 

is_empty_line = false; 

} 

else { 

if ( w->Yl() != y_of_line ) { 
mlog (LOG_WARN, 

"HandleReleasedWindows: Y! (%d) of window is different from yl (%d) 

of another " 

"window. ",w->Yl () ,y_of_line) ; 

} 

} 

// fprintf (stderr, " y_release = %dr Yl = %d winpack (yl) = 
%d\n"r y_release, w->Yl () , winpack->yl ) ; 

// ds_queue->Push ( winpack->WithdrawWin { ) ); 

} 

} 

delete winpack; 



// It is imporntant to call e_windows->Lnext ( ) BEFORE a call to 

// e_windows->RemoveEventWindow (ew) . To understand why we need to 

// know how event windows are placed in linked lists. Each event 

// window have a 'next* variable which points to the next event 

// window in some list. Such a list is th elinked list created by 

// the method MovelntersectLineToLine () which contains all windows 
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// having the given y coordinate as their last (yl) coordinate. 

// Another list is a list of 'free' event windows. The event window 

// is added to this list after a call to e_windows->RemoveEventWindow. 

// and after that call the 'next* variable of the removed event window 

// will no longer point to the next element in the linked list. 

// Thus we move to the next element of the linked list BEFORE we 

// call to e_windows->RemoveEventWindow ( ) by calling to e_windows->Lnext ( ) , 

// 

e_windows->Lnext () ; 

if ( ! e__windows->RemoveEventWindow (ew) ) 
{ 

mlog (LOG_ALLOC_ERROR, "HandleReleasedWindows : " 
"Failed to event window . [%d^ %d] x [%d, %d] , 
ew->xOr ew->xl, ew->yO, ew->yl) ; 
return false; 

} 

} 

if ( is_empty_line ) { 

if ( ( last_empty_line+l ) == y_release ) { 

// previous line was also an empty line, put previous as empty line 
if { ! ds_queue->Push_y ( v_out_windows , last_empty_line ) ) { 
mlog (LOG_DERIVED_ERROR, 

"HandleReleasedWindows: Task %s, last_empty__line=%d 
Name () , last_empty_line) ; 
return false; 
} 

} 

last_empty_line = y_re lease; 

} 

else { 

// non empty line 

if ( ! ds_queue->Push_y ( v_out_windows, y_of_line ) ) { 
mlog (LOG_DERIVED__ERROR, 

"HandleReleasedWindows: Task %s, y_release=%d 
Name < ) , y_release) ; 
return false; 

} 

} 

return true; 

} 



// Create a list of events of the given priority. Mark all created 
// events, (set value of the coresponding is_event_marked to true) 
// 

bool 

Task_packer : :CreateListOf Events ( list<Unif ied_event> & events, 

bool * is_event_marked, 
int y, 

int priority) 

{ 

// This list will contain events from given data source on line y 
list<Unif ied_event> 1 is t_of_e vents; 

// add events of given priority from feature data source 
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for ( unsigned int i = 0; i < ds_f eatures . size ( ) ; ++i ) 
{ 

if ( ! FillEventsListFromFeatures (list_of_events, ds__features [i] , y, priority) ) 
{ 

miog (LOG_DERIVED_ERROR, "CreateListOf Events : " ) ; 
return false; 

} 

events .merge ( list_of_events ); 

} 

// add events of given priority from feature data source 
for ( unsigned int i = 0; i < ds_def ects . size ( ) ; ++i ) 
{ 

if ( ! FillEventsListFromDef ects (list_of__events, ds_def ects [i] ^ y, priority) ) 
{ 

mlog (LOG_DERIVED_ERROR, "CreateListOf Events : ") ; 
return false; 

} 

events . merge { 1 is t_of_e vents ); 

} 

// add events of given priority from width defects data source 
if ( 

! FillEventsListFromWidthDefects.(list_of_events, ds_width_def ect, y, priority) ) 
{ 

mlog (LOG_DERIVED_ERR0R, "CreateListOf Events : ") ; 
return false; 

} 

// add events of given priority from width defects data source 
if ( 

! FillEventsListFromColor Defects {list_of_events , ds_color_def ect , y, priority) ) 
{ 

mlog (LOG_DERIVED_ERROR, "CreateListOf Events : " ) ; 
return false; 

} 

events .merge ( list_of_events ); 

// Add top down events of the given priority 

if ( ! FillEventsListFromTopDown (list_of_events, y, priority) ) 
{ 

mlog (LOG_DERIVED_ERROR, "CreateListOf Events : " ) ; 
return false; 

} 

events .merge ( list_of_events ); 

if ( events . size ( ) > 0 ) 
{ 

plog (LOG_ALL, 

"Line %8d (priority %3d ) #events %5d.\n", 
y, priority, events . size () ) ; 

) 

// mark all events (of given priority) in line, 
for ( unsigned int i = 0; i < events . size () ; ++i ) 
{ 

is_event_marked[i] = true; 
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} 

return true; 



} 



// Create a list of events of the given priority from feature data 
// sopurce. 

// 

bool 

Task_packer: : FillEventsListFromFeatures (list<Unif ied_event> & list_of_events , 

Ds_array<Feature> * ds, 
int y, 

int priority) 

{ 

if ( Ids ) return true; 
list of events . clear () ; 



// run over all features with the given priority 
if ( priority == packer_helper . f eature__priority ) { 

// iterators over features (triggers) 

Ds_array_iter<Feature> iter ( ds ) ; 

Feature * element; 

Unif ied_event ev; 

ev.type = Unif ied_e vent :: FEATURE; 
ev.y = y; 

// loop over all features of line y 

iter . BeginLine ( y ); 

while ( (element = iter.NextO) ) 

{ 

ev.x = element->x; 

ev. feature = *element; 

// take feature to list only if it is inside the relevant area 

if ( (ev.x > relevant_window.xO) && (ev.x < relevant_window . xl ) ) { 

list_of_events .push_back ( ev ) ; 

} 

} 

} 

return true; 

} 

// Create a list of events of the given priority from defect data 
// sopurce. 

// 

bool 

Task_packer: : FillEventsListFromDef ects (list<Unif ied_event> & list_of__events, 

Ds_array<Defect > * ds, 

int y, 

int priority) 

{ 

if ( !ds ) return true; 
list_of_events . clear ( ) ; 

// run over all defects with the given priority 
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if ( priority ~ packer_helper . def ect_priority ) { 
// iterators over defects (triggers) 
Ds__array_iter<Defect> iter ( ds ) ; 

Defect * element; 

Unif ied_event ev; 

ev.type = Unif ied_event :: DEFECT; 
ev.y = y; 

// loop over all defects of line y 

iter . BeginLine ( y ); 

while ( (element = iter.NextO) ) 

{ 

ev.x = element->x; 

ev. defect = *element; 

// take defect to list only if it is inside the relevant area 

if ( (ev.x > relevant_window.xO) && (ev.x < relevant_window . xl ) ) { 

list_of_events .push_back ( ev ); 

) 

} 

} 

return true; 

} 



/ / Create a list of events of the given priority from width defect data 
// sopurce. 

// 

bool 

Task_packer: : FillEventsListFromWidthDef ects (list<Unif ied_event> & 
1 is t_of_e vents, 

Ds__array<Width_defect> * ds, 
int y, 

int priority) 

{ 

if ( !ds ) return true; 
1 is t_of_e vents . clear ( ) ; 

// run over all features with the given priority 

if (priority === packer_helper . width_def ect_priority ) { 

// iterators over features (triggers) 

Ds_array_iter<Width_defect> iter ( ds ); 

Width_defect * element; 

Unif ied_event ev; 

ev.type = Unif ied_event : : WIDTH_DEFECT; 
ev.y = y; 

// loop over all features of line y 

iter . BeginLine ( y ); 

while ( (element = iter.NextO) ) 

{ 

ev.x = element->x; 

ev. width_defect = * element; 

// take width defect to list only if it is inside the relevant area 
if ( (ev.x > relevant_window.xO) && (ev.x < relevant_window . xl ) ) { 
list_of_events . push_back ( ev ) ; 
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} 

} 

} 

return true; 

} 



// Create a list of events of the given priority from color defect data 
// sopurce. 

// 

bool 

Task_packer: : FillEventsListFromColorDef ects (list<Unif ied_event> & 
lis t_of_e vents ^ 

Ds_array<Color_def ect> * ds, 

int 

int priority) 

{ 

if ( !ds ) return true; 
1 is t_of_e vents . clear ( ) ; 

// run over all defects with the given priority 
if ( priority — packer_helper . def ect_priority ) { 

// iterators over defects (triggers) 

Ds_array_iter<Color_def ect> iter ( ds ) ; 

Color_defect * element; 

Unif ied_event ev; 

ev.type = Unified_event :: DEFECT; 
ev.y = y; 

// loop over all defects of line y 

iter . BeginLine ( y ); 

while ( (element = iter.NextO) ) 

{ 

ev.x = element->x; 

ev.defect.x = element->x; 

ev, defect .data = Def ect : : ConvertToDef ect ( ^element ) ; 

// take color defect to list only if it is inside the relevant area 
if ( (ev.x > relevant__window.xO) && (ev.x < relevant_window. xl) ) { 
list__of_events .push_back ( ev ); 
} 

} 

} 

return true; 

} 



// Create a list of events of the given priority from top down events on line 
// This list is the list onl_t d_e vents [y] 

// 

bool 

Task__packer : : FillEventsListFromTopDown (list<Unif ied_event> & list__of_events, 

int y, 

int priority) 

{ 

list of _events . clear () ; 
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unsigned int osize = i_line->osize ( ) ; 
while ( (*it) .X < i_line->X() ) { 

// current_event is inside a set of overlapping event_windows . 

for (unsigned int iosize = 0/ iosize < osize; -f+iosize) { 

( (Sipwinpack *) (i_line->GetOvelappingWindow (iosize) )) ->push_back (*it) ; 

} 

++it/ 

if ( ! (it != list_end) ) { 

return; // end of list of events 

} 

} 

// (*it) .X >= i_line->X() (Possibly we passed past the last event 
// in list. Move to next Xendpoint. 

// 

i__line->Xnext () ; 

} 

return; 

) 



// Pack all events in list inside all windows intersecting the intersect 
// line number index_i_line 

// 

void Task_packer : : PackCels (int y, int index_i_line, Ds_array<Cel> * ds_cels) 
{ 

if ( !ds_cels ) return; //no CELs requested to be packed 

Ds_array_iter<Cel> citer ( ds_cels ) ; // iterator ovel line of CELs 

Cel * celement; // points to a eel from citer 

Cel_event<Cel> ce; // contains the eel event to be packed 

ce.y = y; // y coordinate of packwed eel event 

Intersect line * i line = e windows->GetIntersectLine ( index i line); 



// return if no event windows covering line y OR if list_events is empty 

if ( i_line->empty () M citer . empty_line (y) ) 

{ 

return; 

} 

// iterators over eels is positionned at the beginning of the line 

// 

citer .BeginLine (y) ; 
celement = citer .Next () ; 
if ( ! celement ) 
{ 

return; // no CELs in this line 

} 



// Move to first Xendpoint. Xendpoints iterator will point at an Xendpoint 

// with coordinate i_line->X(). The list of overlapping windows will 

// contain all event windows overlapping the segment between i_line->X() 
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// and the Xendpoint with smaller X coordinate 

// 

i_line->Xbegin ( ) ; 

// while not_end_of_Xendpoints of intersected event windows and not end of 
// CELs 

// 

while ( ! (i_line->Xend() ) ) 
{ 

// Check if there are overlapping event window, 
unsigned int osize = i_line->osize ( ) ; 
while ( (int) (celement->x) < i_line->X() ) 
{ 

// if ( celement->edge_code 1= 7 ) 
// { 

// pack eel only if do not contain skeleton data 

// current_event is inside a set of overlapping event_windows . 

ce.x = celement->x; 

ce.data = *celement; 

for (unsigned int iosize = 0; iosize < osize; ++iosize) 
{ 

( (Sipwinpack *) (i_line->GetOvelappingWindow (iosize) ) ) ->push_back (ce) ; 

} 

//} // if ( celement->edge_code != 7 ) 
celement = citer .Next ( ) ; // Move to next CEL 
if ( ! celement ) 
{ 

return; // No more CELs 

} 

} 



// celement->X ( ) >= i_line->X () (Possibly we passed past the last eel) 
// Move to next Xendpoint. 

// ^ 

i_line->Xnext () ; 

} 

return; 

} 



// Pack all color eels in list inside all windows intersecting the intersect 
// line number index_i_line 

// 

void Task_packer : : PackColorCels (int y, 

int index_i_line, 

Ds_array<Color_cel> * ds_color_cels) 

{ 

if { ! ds_color_cels ) return; // no color CELs requested to be packed 

Ds_array_iter<Color_cel> citer ( ds_color_cels ); //iterator ovel line of CELs 
Color_cel * celement; // points to a eel from citer 

Cel_event<Color_cel> ce; // contains the eel event to be packed 

ce.y = y; // y coordinate of packwed eel event 

Intersect line * i line = e windows->GetIntersectLine (index_i line); 
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// return if no event windows covering line y OR if list_events is empty 

if ( i_line->empty 0 il citer . empty_line (y) ) 

{ 

■return; 

} 

// iterators over eels is positionned at the beginning of the line 

// 

citer . BeginLine (y) ; 

celement = citer .Next () ; 

if ( ! celement ) 

{ 

return; // no CELs in this line 

} 



// Move to first Xendpoint. Xendpoints iterator will point at an Xendpoint 
// with coordinate i__line->X () . The list of overlapping windows will 
// contain all event windows overlapping the segment between i_line->X() 
// and the Xendpoint with smaller X coordinate 

// 

i__line->Xbegin ( ) ; 

// while not_end_of_Xendpoints of intersected event windows and not end of 
// CELs 

// 

while ( ! (i_line->Xend() ) ) 
{ 

// Check if there are overlapping event window, 
unsigned int osize = i_line->osize ( ) ; 
while ( (int) (celement->x) < i_line->X() ) 
{ 

ce . X = celement->x; 
ce.data = * celement; 

for (unsigned int iosize = 0; iosize < osize; ++iosize) 
{ 

( (Sipwinpack *) (i_line->GetOvelappingWindow (iosize) ) ) ->push_back (ce) ; 
} 

celement = citer.NextO; // MOve to next CEL 

if ( ! celement ) 

{ 

return; //No more CELs 

} 

} 

// celement->X() >= i_line->X() (Possibly we passed past the last eel) 
// Move to next Xendpoint. 

// 

i_line->Xnext () ; 

} 

return; 

} 



// Print CEL data (used for debugging only) 

// 

void Task_packer : : PrintCelData (int y, Ds_array<Cel> * ds_cels) 
{ 
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Ds_array_iter<Cel> 

Cel 

int 



citer( ds_cels ); // iterator ovel line of CELs 
* celement; // points to a eel from citer 

index; 



mlog(LOG_ALL, "PrintCelData : " 

"Line %d #CELs = %d [index= (x, edge__code) ] -> y, citer . size_line (y) ) ; 

// return if no event windows covering line y OR if list_events is empty 

if ( citer .empty__line (y) ) 

{ 

mlog(LOG_ALL, "PrintCelData: " 
"NO CELS") ; 
return; 

} 

// iterators over eels is positionned at the beginning of the line 

// ^ 

citer . BeginLine (y) ; 
celement = citer .Next () ; 
if ( ! celement ) 
{ 

mlog (LOG_ALL, "PrintCelData: " 
"ERROR") ; 

return; // no CELs in this line 



// 

index =0; 
while ( true ) 
{ 

mlog(LOG_ALL, "PrintCelData: " 

"%d= (%d;^ %d) ", index, celement->x, celement->edge_code) ; 
celement = citer .Next () ; // MOve to next CEL 
if ( ! celement ) 
{ 

mlog(LOG_ALL, "PrintCelData: " 

.. . DONE\n"); 
return; // No more CELs 



++ index; 

} 



$Log: task__packer . C, V $ 

Revision 1.72 2001/02/20 10:09:01 sharond 
Allow masking inside a window (PIM in win) 

Code Review by 

Revision 1.71 2001/02/01 14:54:08 shmulik 

Adding printouts of number of elements (CELs, features, etc.) packed 
by packr task. 

Code Review by 

Revision 1.70 2000/09/06 05:40:19 meirm 
Producing ordered queues as i output. Correcting 
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defficiency of e_windows in the index of last 
line packed as reported. 

Code Review by Meir 

Revision 1.69 2000/05/24 11:11:02 shmulik 

Improving robustness by ignoring triggers for window creation that a 
too close to camera boundaries. 

Code Review by 

Revision 1.68 2000/02/21 12:38:28 shmulik 

Adding client_id parameter, taken from camera_id and 

sending it to CreateWinPack method. 

Code Review by 

Revision 1.67 1999/12/29 12:23:31 meirm 
Code Review by 

Revision 1.66 1999/12/23 08:57:53 shmulik 

Changing return va;ue of Type ( ) ifrom string into const char * 
Code Review by Meir 

Revision 1.65 1999/10/24 14:23:52 joseph-w 
changing to derived error 

Code Review by 

Revision 1.64 1999/09/26 16:09:56 joseph-w 

changing the order of including the x.H file to first line of x.C 

Revision 1.63 1999/09/07 09:56:48 shmulik 
Packing also SDD/COMRAD defects. 

Revision 1.62 1999/08/29 11:52:48 rina 
changed due to changes in Unif ied_event . 

Revision 1.61 1999/08/18 09:52:14 shmulik 

Major changes. Moving many methods to packer_helper class. 

eliminating the use of events_services . 

Revision 1.60 1999/07/19 09:58:05 shmulik 

Adding guard for preventing the dereferencing of NULL pointers 
in case of empty (input) ds_trans . 

Revision 1.59 1999/07/12 13:39:18 sharond 
Cosmetics changes 

Revision 1.58 1999/07/07 12:56:57 sharond 
New coordinate model 

Revision 1.57 1999/06/22 17:08:05 shmulik 

Using correctly new coordinate systems of base class. Storing localy 
needed camera2align and align2camera transformations. Checking that 
all used data sources are camera data sources 
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Revision 1.56 1999/06/13 16:43:07 shmulik 

Replacing Max_Line__Si2e method with MaxLargestPixellnScan 

Revision 1.55 1999/06/08 08:11:22 sharond 
Strict Context checking in CoordSys 

Revision 1.54 1999/03/01 13:48:49 sharond 
Arrange logging messages 

Revision 1.53 1999/02/28 18:42:33 shmulik 

Changing transformation warning line 1760 to STANDARD 

Revision 1.52 1999/02/28 08:17:15 joseph-w 
shared memory enable/disable issues 

Revision 1.51 1999/02/10 14:38:16 joseph-w 
minor language improvments 

Revision 1.50 1999/01/19 15:05:25 shmulik 
Removing inline from virtual methods 

Revision 1.49 1998/12/24 07:57:23 sharond 
Enable multi slice eel reference & extraction 

Revision 1.48 1998/12/16 14:41:57 sharond 

Check Success / Failure of TransOp operations (Mult&Div) 

Revision 1.47 1998/12/13 07:21:33 shmulik 
Insure changes 

Revision 1.46 1998/11/25 11:42:22 joseph-w 
added missing return code 

Revision 1.45 1998/11/25 07:03:34 shmulik 

changing methods returning void into methods returning bool . 

Revision 1.44 1998/11/05 15:52:37 sharond 
after demo effect 

Revision 1.43 1998/11/04 14:15:53 joseph-w 
more compliance to C++ standards 

Revision 1.42 1998/11/01 15:13:12 joseph-w 
*** empty log message *** 

Revision 1.41 1998/10/26 13:48:55 joseph-w 
KCC & egcs compatibility issues 

Revision 1.40 1998/10/16 15:47:57 sharond 
*** empty log message *** 

Revision 1.39 1998/10/15 17:27:29 shmulik 
*** empty log message *** 

Revision 1.38 1998/10/14 15:19:44 shmulik 
minor changes 

Revision 1.37 1998/10/14 09:30:13 sharond 
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*** empty log message *** 

Revision 1.36 1998/10/08 07:32:14 sharond 
*** empty log message *** 

Revision 1.35 1998/10/06 14:04:07 sharond 
Multi slice Balls handling 

Revision 1.34 1998/09/28 18:34:47 shmulik 
arrangement of code 

Revision 1.33 1998/09/28 17:28:14 shmulik 
Tranfroming fixed top down widnows beforing creating 
Sipwinpack. changing parameter to CreateSipwinpack from 
ref2onl into onl2ref. 

Revision 1.32 1998/09/27 19:19:31 shmulik 
Adding interface to help defining windows with 
a proper coordinate system. 

Revision 1.31 1998/09/23 15:00:22 shmulik 

Adding function element to window's private members 

and removing it from sipwinpack. making Win_queue 

to contain pointers to Sipwin instead of pointers to 

Sipeinpack. 

Revision 1.30 1998/08/25 07:52:24 sharond 
*** empty log message *** 

Revision 1.29 1998/08/23 17:26:48 joseph-w 
fixed warnings 

Revision 1.28 1998/08/11 12:27:37 sharond 
Camera Model + Sip General Data modifications 

Revision 1.27 1998/07/19 17:15:11 shmulik 
Minor changes 

Revision 1.26 1998/05/21 11:35:21 shmulik 
Improving code for unification of events (minimizing 
number of openned windows) 

Revision 1.25 1998/05/19 17:41:39 shmulik 
Adding data persistance to data sources and the 
concept of sync Vs. non^sync data sources used by tasks 

Revision 1.24 1998/05/11 17:21:24 shmulik 

changes for allowing to pack skeletons inside windows 

Revision 1.23 1998/05/05 06:24:06 shmulik 
code improvements 

Revision 1.22 1998/04/08 07:09:33 eyalk 

converting to string, to ansi conventions, new factory, etc 

Revision 1.21 1998/02/19 07:24:54 eyalk 
updates of new compiler 
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* Revision 1.20 1998/01/15 10:27:45 shmulik 

* *** empty log message *** 
* 

* Revision 1.19 1998/01/06 14:11:52 shmulik 

* Replacing all LOG_CONFIG log messages by LOG_APPLIC 
★ 

* Revision 1.18 1998/01/01 09:59:05 shmulik 

* Integrating new logger into the SIP 
* 

* Revision 1.17 1997/12/29 07:46:32 yulia 

* Adding NEW logger 
* 

* Revision 1.16 1997/12/15 12:57:32 shmulik 

* Adding support for color CELs 
★ 

* Revision 1.15 1997/12/14 14:30:16 shmulik 

* adding support for templated version of CEL data structures 
* 

* Revision 1.14 1997/10/12 07:55:01 shmulik 

* *** empty mlog message *** 
* 

* Revision 1.13 1997/09/25 06:56:17 shmulik 

* adding general_data variable to func DoSetParams 
* 

* Revision 1.12 1997/06/22 06:26:54 shmulik 

* *** empty mlog message *** 
* 

* Revision 1.11 1997/06/18 06:38:04 shmulik 

* bug fixes 
★ 

* Revision 1.10 1997/05/28 11:19:17 shmulik 

* Modifications 

* Revision 1.9 1997/05/20 17:56:26 shmulik 

* Purification .and bug fixes 
* 

* Revision 1.8 1997/05/01 13:17:19 shmulik 

* bug fix 
* 

* Revision 1.7 1997/05/01 11:22:22 shmulik 

* Improved handling of transformation of top down reference to online lines 
★ 

* Revision 1.6 1997/04/15 17:37:03 shmulik 

* nothing much 
* 

* Revision 1.5 1997/04/15 17:18:17 eyalk 

* Incorperating changes in basic_cel 
★ 

* Revision 1.4 1997/04/06 14:47:25 shmulik 

* Adding ability for ignoring inclusion zones. A window will be created aroung 

triggers inside inclusion zone of other windows if the ignore_izone_f lag is set 
* 

* Revision 1.3 1997/03/31 10:18:58 shmulik 

* minor improvements of code 
* 

* Revision 1.2 1997/03/18 15:56:09 shmulik 

* Making things compatible to data arriving from hardware 
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Revision 1.1 1997/02/18 14:42:11 shmulik 
*** empty mlog message *** 



/* 

// ^ 

// Compute needed top down lines. We need to have all top down events in 
// lines (on line coordinates) [ td_f irst_line, td_last_line) . 

// 

// The required top down lines are stored in onl_td_events where 

// oni_td_events [y] is the list (sorted by X coordinates) of all top down 

// events defined for line y in the online coordinate system. 

// 

// Note that 

// ALL top down events are originally defined in reference coordinates, 

// 

// The computation of the range of top-down lines needed is based on the 
// demand for top down lines during the computation of packer (see methods 
// ProcessEventsInLine and ProcessEventsInFirstLine) . 

// 

void Task_packer : :ComputeNeededTopDownLines (int first_line, int last__line ) 
{ 

// compute td_f irst__line (first needed top down line) and td_last_line 
// (last needed top down line) 

// 

ComputeRangeOfNeededTopDownLines (f irst_line^ last_line, 

td_f irst_line, td_last_line) ; 
if ( td__f irst_line < 0 ) return; 

// A transformation bteween online and reference coordinate systems is 

// defined 

// 

// devide the range [ td_f irst_line, td_last_line] into segments 

// [ f irst_onl_line, last_onl_line] where the first f irst_onl_line is equal 

// to td_f irst_line and the last_onl_line is equal to td_last_line . 

// 

// The segments are such that the transformation between on line and 
// reference coordinate systems is the same for each segment. 

// 

int f irst_onl_line = td_f irst_line; 

while ( true ) 

{ 

// compute last endpoint of segment beginning with f irst_onl_line 
int last_onl_line; 
if ( ds_trans ) { 

last_onl_line = ds_trans->MaxLineOf Influence ( first_onl_line ) ; 

if ( last_onl_line > td_last_line ) last_onl_line = td_last_line; 

) 

else { 

last_onl_line = td_last__line; 

} 

// get range of reference lines covered by the rectangle 
// [0, Sip_general_data : :MaxLargestPixelInLine_cameras ( } ] 
// X 
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// [f irst_corrected_onl_line/ last_onl__line] 
// where f irst__corrected_onl_line 

// = f irst_onl_line - RegistrationRangeOverlap 

// (see events_services . H) . The correction with 

// RegistrationDeviationTolerance is performed because we want to cover 
// ail lines in the reference so that we shall not loose any top down 
// event. 

int yref_min, yref__max/ 

int f irst_corrected_onl_line = 

f irst_onl_line - ds__events_services->RegistrationRangeOverlap ( ) / 
if { f irst_corrected_onl_line < 0 ) f irst_corrected_onl_line = 0; 

ComputeBoundingLines (0, f irst_corrected_onl_line, 

Sip_general_data : : Largest_pixel_in_line ( 
UsedCoordinate_System ( ) ), 

last_onl_line, 
yref_inin, 
yref_max) ; 

// Get the top down events (after transformation to online coordinates) 
// for all reference lines covered by the above rectangle, 
for ( int yref = yref_min; yref <= yref_max; ++yref ) 
{ 

GetTopDownEventsFromRef erenceLine (yref, 

f irst_corrected_onl_line, 
f irst_onl_line, 
last_onl_line) ; 

} 

// move to next segment (or break at last segment) 
if ( last_onl_line == td_last_line ) break; 
f irst_onl_line = last_onl_line + 1/ 

} 

// sort all online topdown events by their X coordinates 

// 

for ( int yonl = td f irst line; yonl <= td_last_line; ++yonl ) 

{ 

onl_td_events [yonl ) . sort ( ) ; 

} 

return; 

} 

// 

// Compute range of needed top down lines. 

// The computation of the range of top-down lines needed is based on the 
// demand for top down lines during the computation of packer (see methods 
// ProcessEventsInLine and ProcessEventsInFirstLine) . 

// All coordinates (input and output) are in the online coordinate system. 
// ^ 

void Task_packer: : ComputeRangeOfNeededTopDownLines (int first^line^ 

int last_line, 
int & td_f irst_line, 
int & td_last_line) 

{ 

int td_priority = packer_helper . td_priority; 

int td_offset = max_window_size * ( td__priority - min_priority + 1) ; 
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int largest_line = Sip_general_data : : Largest_line_in_scan ( 
UsedCoordinate__Systein ( ) ); 

// compute td_f irst_line (first needed top down line) and td__last_line 
// (last needed top down line) 

// 

if ( first_line == 0 ) 
{ 

td_first_line = 0; 

} 

else 
{ 

td_f irst_line = first^line + td_offset; 

} 

> largest_line ) 

we will not use top down lines 
1; 
1; 



// compute last_line needed top down line 
td__last_line = last_line + td_offset; 
if ( td_last_line > largest_line ) 
{ 

td_last_line = largest_line; 

} 

return; 

} 

// 

// Compute bounding lines (in reference coordinate system) of a given 

// rectangle (given in online coordinate system) . It is assumed that the 

// online — >reference transformation is the same for all lines between yonl_min 

// and yonl_max. 

// 

void Task_packer : :ComputeBoundingLines (int xonl_min, int yonl__min, 

int xonl_max, int yonl_maX/ 

int & yref_min, 

int & yref_max) 

{ 

// get transformation for the range of lines between line f and line 1 
// (including f and 1) 

const Af f ine2dtrans & onl2ref - (ds_trans ? ds_trans->Trans (yonl_min) : 

camera2aligned) ; 

// compute the image of the rectangle 

// [xonl_min, xonl_max] X (yonl__min, yonl_max] 

// on the reference coordinate system. The rectangle is transformed 
// into the quadrilateral with vertices (xref [i] , yref [ i] ) , i = 0,1^2,3 
double xref[4], yref[4]; 

onl2ref (xref [ 0 ] yref[0], xonl_min, yonl_min ); 
onl2ref (xref [1] , yref[l], xonl_min, yonl^max ); 
onl2ref (xref [2] , yref(2), xonl_max, yonl_max ); 



if ( td_f irst_line 
{ 

// in this case, 
td_f irst_line = - 
td_last_line = - 
return; 
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onl2ref (xref [3] , yref[3], xonl_max, yonl_min ); 

// compute bounding lines of reference rectangle: ymin and ymax 

double yd_min = yref[0]/ 

double yd_max = yref[0]; 

for ( int i = 1; i < 4; ++i ) 

{ 

if ( yref[i] < yd_inin ) yd_min = yref[i]; 
if ( yref[i] > yd_max ) yd_max = yref[i]; 

} 

// compute min and max line so that they are within the range of ref lines 
// [0,NFTDuevents . size () ] 
yref__min = (int) (floor (yd_min) ) ; 
if ( yref__min < 0 ) yref_min = 0; 

Sip_lines_of_uevents & NFTDuevents = packer_helper .NFTDUevents ( ) ; 
yref_max = (int) (ceil (yd_max) ) ; 

if ( yref_max >= ( int) NFTDuevents . size ( ) ) 
{ 

yref_max = NFTDuevents . size ( ) - 1; 

} 

return; 



} 



// 

// Get top down events in online coordinate system from all reference 

// top down events defined on line y (in ref coordinate system) , 

// Process only top down events defined for lines between f irst_onl_line 

// and last_onl_line (where the transformation is the same) . 

// 

void 

Task_packer: iGetTopDownEventsFromReferenceLine (int yref, 

int f irst_corrected_onl_line, 
int f irst_onl_line, 
int last_onl_line ) 

{ 

// Get the inverse of the (fixed) transformation defined for all online 
// lines between f irst_onl_line and last_onl_line (both ends included) 
const Af f ine2dtrans & ref2onl = 

( ds_trans ? ds_trans->InverseTrans (f irst_onl_line) : aligned2camera ); 

double df irst_onl_line = (double) firs t_corrected_onl_line; 
double dlast_onl_line = (double) last_onl_line; 

// run over all TD events defined on line y (ref coordinate system) 

Sip_lines_of_uevents & NFTDuevents = packer_helper . NFTDUevents ( ) ; 

list<Unif ied_event> & ref_td NFTDuevents [yref] ; 

list<Unif ied_event> :: iterator it = ref_td. begin () ; 

while ( it != ref_td.end() ) 

{ 

// transform from ref coordinate system to online coordinate system 

// reasonable defaults: 

double xd_onl(0.0), yd_onl(0.0); 

// set xd__onl, yd_onl 



38 



APPENDIX "D' 



ref 2onl ( xd_onl, yd_onl, (*it) .x^ (*it).y ); 
// check 

if ( (yd_onl >= df irst_onl_line) && (yd_onl <= dlast_onl_line) ) 
{ 

// inside range of required online lines. 
list<Unif ied__event> :: iterator cit = it; 
++it; 

// transform coordinate xd_onl into subpixel representation 
double dint = floor(xd_onl + 0.5); // changed from rint() 

GNU specific 

(*cit) .X = (int)dint; 

(*cit) . top_down . x_sub_pixel= (int) ( (xd_onl-dint) *CEL_SUB_PrXEL_BITS) ; 

// transform coordinate yd_onl into subpixel representation 
dint = floor (yd_onl + 0.5); 

int yi_onl = (int) dint; 

(*cit) .y = yi_onl; 

(*cit) .top_down.y_sub_pixel= (int) ( (yd_onl-dint) *CEL_SUB_PIXEL_BITS) ; 

// remove TD event *cit from list ref_td into the list 

// onl_td_events [yi_onl] . 

if ( yi_onl < f irst_onl_line ) 

{ 

// Note that yi_onl might be smaller 

// than f irst_onl_line . In this case we store the corresponding 
// TD event on the list containing events for line f irst__onl_line . 
yi_onl = f irst_onl_line; 

} 

onl_td_events [yi_onl] . splice (onl_td_events [yi_onl] .end() ,ref_td^cit) ; 

} 

else 
{ 

// not inside range of required online lines. 
++it; 

} 

} 

return; 

} 



// 

// Create all fixed windows. The size and location of those windows are 
// known before scan. 

// 

bool Task_packer : :CreateFixedWindows ( int last_line ) 
{ 

// get the vector of top down objects 
bool is__ok; 

Sip_topdown_vector & v^topdown = ds_events_services->TopDownVector ( ) ; 

e_windows->BeginUpdate () ; 
Unif ied_event td; 

for ( unsigned int i = 0; i < v_topdown . size () ; ++i ) 
{ 

if ( v_topdown [i] . is_f ixed ) 
{ 
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Sipwinpack * winpack = NULL; 

// td is the top down event trigering the creation of this event, 
td.x = v__topdown [i] . x_center/ 

td.y = v_topdown [ i] . y_center; 

td.type = Sip_event_header : :TOP_DOWN/ 

td . top_down , index = i ; 

if ( ds_trans ) 
{ 

// Create winpack with the transformation that corresponds to the first 

// line in the scan 

if ( td.y < last_line ) 

{ 

// td.y is a line within the range of lines covered by registration 
// transformation. Pass onl2ref transformation to CreateWinpack 
const Af f ine2dtrans & onl2ref = ds_trans->Trans ( td . y) ; / 
const Af f ine2dtrans & ref2onl = ds_trans->InverseTrans (td. y) ; 

td . Transform (ref2onl) ; 
winpack = 

ds_events_services->CreateWinpack ( td^ onl2ref, is_ok ); 

} 

else 
{ 

// td.y is a line greater than the max line for which 

// transformation was computed. Use the last transformation 

// computed so far. Pass onl2ref transformation to CreateWinpack. 

const Af f ine2dtrans & onl2ref = ds_trans->Trans ( last_line) ; 

const Af f ine2dtrans & ref 2onl = ds_trans->InverseTrans (last_line) ; 

td.Transf orm (ref2onl) / 

winpack = 

ds_events_services->CreateWinpack ( td, onl2ref/ is_ok ); 

} 
} 

else 
{ 

// no transformation specified, 

// Pass aligned2ref transformation to CreateWinpack 
td. Transform (aligned2camera) ; 

winpack = ds_events_services->CreateWinpack ( td, camera2aligned, is_ok ) 
} 

mlog (LOG_ALL, "CreateFixedWindows : " 

"Topdown trigger {%d %d) transfored into trigger (%d %d) \n", 
v_topdown[i] . x_center, v__ topdown [ il .y_center, 
td.x, td.y); 

if ( winpack ) 
{ 

// sipwinpack contains a non empty definition for a test window 

if ( ! e__windows->PutWindow (winpack) ) 

{ 

mlog (LOG_APPLIC_ERROR, "CreateFixedWindows : " 

"Task %s : Failed to put fixed window into system of " 
"windows.", NameO); 

delete winpack; 

return false; 

) 
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} 

else 
{ 

// NULL winpack. 
if ( ! is_ok ) 
{ 

// failed to create Sipwinpack object, 
mlog (LOG_DERIVED_ERROR^ "CreateFixedWindows 
return false; 

} 
} 

} // if ( v_topdown [ i] . is__f ixed ) 
} // end of for loof 

e_windows->EndUpdate () ; 

return true; 



41 



APPENDIX "E" 



#inclucie "task_test__manager . H" 

#include <string> 
#include <iterator> 
using namespace std; 

tinclude "sipdata_sub_windows . H" 
tinclude "id_singleton . H" 
finclude "sip_logger . H" 
#include "sip_conf ig. H" 
#include "sipwin.H" 
#include " set_operation . H" 
# include "sip_general_data . H" 
tinclude "win_queue , H" 

// add a factory for Task_data_transf er to list of factories 

// 

static Register__subclass<Task_test_manager> r_Task_test_manager ; 

Task_test_manager : : Task__test__manager ( ) 

: ds_queue (NULL) 
#ifdef MP_SAFE 

, thrm (*this) , Sub_test_manager_started ( false) 
#endif // MP_SAFE 

buffer. reserve (MAX WINDOWS PER THREAD); 



Task_test_manager : : --Ta skates t_manager () 
} 

const char * Task_test_manager : : Type ( ) const 
return "Task_test_manager " ; 

Base_factory * Task_test_manager : : DoCreate ( ) const 
return new Task_test_inanager ; 



// virtual base class functions are those of the RootTask 

bool Task_test_manager : : DoLoadConf iguration ( Sip config & config ) 

{ 

// locate Queue source 

// 

if ( v_ds_used_sync . size ( ) 1 ) { 

ds__queue = dynamic_cast<Win_queue *> (v_ds_used_sync [0] ) ; 
if (!ds_queue) { 

mlog (LOG_APPLIC_ERROR, "DoLoadConf iguration : " 

"Task %s should have a Win_queue data source "^NameO); 
return false; 

} 

} else { 

mlog (LOG_APPLIC_ERROR, "DoLoadConf iguration : " 

"Task %s should have a single data source ",Name()); 
return false; 
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} 



// Search for all output queues. 
vect_out_queues . clear ( ) ; 
vect_out_queues_name_ref . clear ( ) / 

for ( unsigned int i = 0; i < v_cls_prociuced. size ( ) ; ++i ) { 
Win_queue * pp = dynainic_cast<Win_queue *> (v_ds_p reduced [i ]) ; 
if ( pp 1= NULL ) { 

// Put queue ptr to first vector and integer reference to name of queue to 
// second vector, 
vect_out_queues .push_back (pp) ; 

vect_out_queues_name_ref .push_back(Id_singleton: :GetId( string (pp->Name () ) 

) ); 

} else { 

// i ' th data source is not a Win_queue data source 
mlog {LOG_APPLIC_ERROR,. "DoLoadCon figuration : " 

"Task %s: The %d'th data source produced " 

"is not a Win_queue data source", NameO); 

DoClear ( ) ; 
return false; 

} 



// locate affine transformation source 

// 

if ( v_ds_used_non__sync . size () > 0 ) { 
mlog {LOG_APPLIC_ERROR, 

"Task %s can not have " 

"non synchronous data source ",Name()); 
DoClear 0 / 
return false; 



if ( Iconfig.GetFieldElement ("number_of_threads" , number_of_threads) ) { 
mlog (LOG_DERIVED_ERROR, "DoLoadConf iguration : " 

"Failed to get number_of_threads field (Task %s) " 

"from configuration". 

Name ( ) ) ; 
DoClear {) ; 
return false; 



if (number_of_t breads > 7) { 

mlog(LOG_APPLIC_ERROR, "DoLoadConf iguration : number_of_threads provided (%d) 

is " 

"above the current limit of 7 (task %s) " , number_of_threads , Name ( ) ) ; 
DoClear 0 ; 
return false; 



Sub_test_manage restarted = false; 

// set according to if threading is disabled or not 

minimum_windows_per_thread = (number_of_t breads != 0) ? MIN WINDOWS PER THREAD 
: 999999; ~ ~ ~ 

return true; 
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// DoClear: Undo DoLoadConf iguration , This function must work even if 

// called before DoLoadConf iguration or after error in DoLoadConf iguration 

// 

bool Task_test_manager : : DoClear ( ) 
{ 

ds_queue = NULL; 
vect_out_queues . clear ( ) ; 

#ifdef MP_SAFE 

// Shut down threads 
if (Sub_test_manager_started) { 
Sub_test_manager_started = false; 
if ( ! thrm.user_close ( ) ) { 

mlog (L0G_DERIVED_ERROR, "DoClear") ; 
return false; 

} 

} 

#endif // MP^SAFE 
return true; 

} 



// Do InitScan 

// 

bool Task_test_manager : : DoInitScan ( ) 

{ 

#ifdef MP_SAFE 

// start up the threads 

if ( ( ! Sub_test_manager_started) && (number_of_threads > 0) ) { 

if ( ! thrm.user^open (number_of_threads , MAX_WINDOWS_PER_THREAD) ) { 
mlog(LOG_DERIVED_ERROR, "DoInitScan") ; 
return false; 

} 

Sub_test_manager_started = true; 

} 

#endif //MP_SAFE 
return true; 

} 



// undo InitScan 

// 

bool Task_test_manager : : DoUnlnitScan () 
{ 

return true; 

} 



// Do process windows 

// 

bool Task_test_manager : ; DoProcess ( const int n__units ) 
{ 

int n_to__work = n_units; 

// CHECK for availablity of data 
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if (ds_queue->size ( ) < n_units) { 
n_to_work = ds_queue->size ( ) ; 
if (n_to_work -1) { 

mlog (LOG_DERIVED_ERROR, "DoProcess") ; 

return false; 

} 

mlog (LOG_WARN, "DoProcess: asked to work on %d windows " 
"but found only %u in queue %s . n_units, n_to_work, 
ds_queue->Name ( ) ) ; 

} 

// check for min data for multi-threading 

if ( (n_to_work / (nuinber_of_threads-i-l ) ) < minimum__windows__per_thread) { 
// no multi - thread 

if ( !ds_queue->Pop_n (back_insert_iterator<vector<Sipwin*> > (buffer) , 
n_to_work) ) { 
mlog (LOG_DERIVED_ERROR, "DoProcess") ; 
// erase windows 
while (! buff er . empty () ) { 
Sipwin * w = buf f er .back ( ) ; 
buf f er .pop_back 0 ; 
if (w) { 
delete w; 

} 
} 

return false; 

} 

if ( ! SubProcess (buf f er) ) { 

mlog (LOG_DERIVED_ERROR, "DoProcess") ; 
// erase windows 
while (! buf fer , empty () ) { 
Sipwin * w = buf fer .back () ; 
buffer . pop__back ( ) ; 
if (w) { 
delete w; 

} 
} 

return false; 

} 

// DONE! 
} else { // multi-thread 
#ifdef MP_SAFE 

unsigned int windows_per_thread = n_to_work / (number_of_threads+l) ; 
// get windows for worker threads. 

for (unsigned int i = 0; i < number_of_threads; ++i) { 

if ( ! ds_queue~>Pop_n (back_insert_iterator<vector<Sipwin*> 
> (thrm. win_queues [i] ) , 

windows_per_thread) ) { 
mlog (LOG_DERIVED_ERROR, "DoProcess") ; 
// kill windows. 

for (unsigned int j = 0; j <= i; +-f-j) { 

vector<Sipwin*> & local_buffer = thrm. win_queues [ j ] ; 
while (! local__buf fer .empty () ) { 
Sipwin * w = local_buf fer .back () ; 
local_buf f er .pop_back ( ) ; 
if (w) { 
delete w; 

} 

} 

4 



APPENDIX "E" 



} 

return false; 
} 

} 

// set the threads loose ... any exit must now wait for threads to end. 
thrm . wall->wait ( ) ; 

// get windows for working in this thread - this will include any leftovers 
// from rounding the above division 

if ( ! ds_queue->Pop_n (back_insert_iterator<vector<Sipwin*> > (buffer) , 

n_to__work - (windows_per_thread * number_of_threads) ) ) { 
mlog (LOG_DERIVED_ERROR, "DoProcess") ; 
// erase windows 
while {! buff er . empty () ) { 
Sipwin * w = buf fer .back 0 ; 
buf fer .pop_back() ; 
if (w) { 
delete w; 

} 

} 

// we gotta wait for the threads now. 
thrm . wall->wait ( ) ; 

// don't care about thread results 
return false; 

} 

// work on local windows 
if ( ISubProcess (buf fer) ) { 

mlog (LOG_DERIVED_ERROR, "DoProcess") ; 

// erase windows 

while (! buf fer . empty () ) { 

Sipwin * w - buf fer .back 0 ; 

buffer . pop__back { ) ; 

if (w) { 
delete w; 

} 
} 

// wait for workers to finish 
thrm . wall->wait () ; 
// exit 
return false; 

} 

// synch against worker threads 
thrm. wall ->wai t () ; 
// done multi-thread - 
#endif // MP_SAFE 
} 

return true; 

} 

bool Task_test_manager : :SubProcess < vector<Sipwin*> & wins) 
{ 

// loop till queue is empty 
while (wins.sizeO != 0) { 

// get window 

Sipwin * w = wins.backO; 

wins . pop_back ( ) ; 

// check if null pointer 

if ( !w ) { 

mlog(LOG_APPLIC_ERROR, "SubProcess: " 
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"Task %s: An empty window poped from queue."/ NameO); 
return false; 

} 

Sipwin & win = *w/ 

miog (LOG_ALL, "SubProcess: " 

"Task %s: Run now window %s id(%d) [%d %d]x[%d %d].", 
NameO, win.TypeO, win.IdO, win.XOO, win.XlO, 
win.YOO, win.YlO )/ 

// ignore dummy EOD wakeup windows 

if { (win . Trigger 0). type == Unif ied_event : : END_OF_DATA ) { 
mlog (LOG_STANDARD, "SubProcess : " 

"End of scan detected by task %s . " , Name ( ) ) ; 
delete w; 
continue; 



// execute function 

Sipwin func :: Re turn_code r_code = win.RunO; 

switch ( r_code ) { 
case Sipwinfunc :: ERROR: 

// take care of error conditions 

mlog (LOG_DERIVED_ERROR, "SubProcess : " ) ; 

delete w; 

return false; 
case Sipwinfunc: :OK: 
case Sipwinfunc :: IGNORE : 

// end of handling of this window. 

mlog (LOG_ALL^ "SubProcess: " 

"Task %s: EndOf Handling - deleting window Name ()) ; 

delete w; 

break; 

case Sipwinfunc : : FORWARD^THIS : 

// Transfer window to a forward destination. 

// transfer owwnership to SendToForwardQueue 

if ( ! SendToForwardQueue (w) ) { 

mlog <LOG_DERIVED_ERROR, "SubProcess : " ) ; 

return false; 

} 

break; 

case Sipwinfunc: :FORWARD__ALL: { 
if ( ! ForwardSubWindows (win) ) { 
mlog (LOG_DERIVED_ERROR, "SubProcess : " ) ; 
delete w; 
return false; 
} 

// Transfer also parent window to a forward destination. 

// transfer owwnership to SendToForwardQueue 

if ( ! SendToForwardQueue (w) ) { 

mlog (LOG_DERIVED_ERROR, "SubProcess : " ) ; 

return false; 

} 

break; 

} 

case Sipwinfunc: :FORWARD_SUB__WINDOWS: { 
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// withdraw and forward all subwindows 

if ( ! ForwardSubWindows (win) ) { 

mlog (LOG_DERIVED_ERROR, "SubProcess: "); 

delete w; 

return false; 

} 

// delete parent window. 

delete w; 

break; 

} 

case Sipwinf unc : : TRUE : 
case Sipwinf unc :: FALSE : 

mlog (LOG_APPLIC_ERROR, "SubProcess : " 

"Task %s: TRUE/FALSE Return_codes for predicate function are not 
expected here.". 
Name ( ) ) ; 
delete w; 
return false; 
default: 

mlog {LOG_APPLIC_ERROR, "SubProcess : " 

"Task %s : Unrecognized return status .", Name {)) ; 
delete w; 
return false; 

} 

} 

// done 
return true; 

} 

// Withdraw Sipdata_sub_windows from win and try to forward them to 
// output destination. 

// In any case the Sipdata__sub_windows is deleted. 

// 

bool Task_test_nianager :: ForwardSubWindows ( Sipwin & win ) 
{ 

// withdraw and forward all subwindows 
Sipdata_sub_windows * sub_windows = 

WIN_WITHDRAW (Sipdata_sub_wihdows, win) ; 
if ( ! sub_windows ) { 

mlog ( LOG_APPLIC_ERROR, " ForwardSubWindows : " 

"Task %s: Can not extract subwindows from window %s.". 
Name ( ) , win . Type ( ) ) ; 
return false; 

} 

for ( unsigned int i = 0; i < sub_windows->size { ) ; ++i ) { 
// Transfer window to a forward destination, 
// transfer ownership of w_sub to SendToForwardQueue 
Sipwin * w_sub = sub_windows->WithdrawSubWin (i) ; 
if (w_sub) { 

if < ! SendToForwardQueue (w_sub) ) { 

mlog <LOG_DERIVED_ERROR, "ForwardSubWindows ; ") ; 

delete sub_windows; 

return false; 

} 

} 

} 
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delete sub_windows; 
return true; 

} 



// Try to forward window to output destination. 

// If succeeded, window is pushed to output queue. Else window is 
// deleted. In any case ownership of window is taaken. 

// 

bool 

Task_test_manager : : SendToForwardQueue ( Sipwin * w ) 
{ 

// window transferred to a forward destination 
unsigned int i = 0; 

while ( (i < vect__out_queues . size ( ) ) ) { 

if ( vect_out_queues_name_ref [i] == (w->ForwardDestination ( ) ) ) { 
// found a destination queue 
mlog {LOG_ALL, "SendToForwardQueue: " 

"Task %s : Forwarding window to queue %s.". 
Name ( ) , vect_out_queues [i] ->Name ( ) ) ; 
#ifdef MP_SAFE 

// gotta protect all output queues 

if (number_of_threads != 0) thrm.mutex->acquire ( ) ; 
vect_out_queues ( i ] ->Push (w) ; 

if <nuinber__of_threads != 0) thrm.mutex->release ( ) ; 
#else // NOT MP_SAFE 

vect_out_queues [ i ] ->Push (w) ; 
#endif // MP_SAFE 

return true; 

} 

else { 

// found a destination queue 

mlog (LOG_ALL, "SendToForwardQueue: " 

"Task %s : Output queue %d (name == %s) is equal to forward destination 

(%d) ." 

"Detected for window %s.". 
Name ( ) , 

vect_out_queues_name_ref [i j , 
vect_out_queues [ i ] ->Name ( ) , 
(w->ForwardDestination < ) ) , 
w->Type () ) ; 

} 

++i; 

} 

mlog (LOG_APPLIC_ERROR, 

"Task %s : Forward destination %d (%s) of window %s does not" 
" match any name of produced queues.". 
Name ( ) , 

{w->ForwardDestination {)) , (Id_singleton : : Id2String (w~ 
>ForwardDestinat ion ( ) ) ) . c_str ( ) , 
w->Type() ) ; 
mlog(LOG_APPLIC_ERROR, "The window is:"); 
w~>Print 0 ; 
delete w; 
return false; 
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// Handle all side effects of task during scan: 

// free allocations made during scan close files created during scan, etc. 
// 

bool Task_test_manager : :DoEndScan() 

{ 

return true; 

} 

#ifdef MP__SAFE 

// CTOR - Init ACE_Task with link to local ACE_Thread_Manager 

Task_test_manager : : 

Sub_test_manager : : Sub_test_manager (Task_test_manager & own) 
: // provide ACE_Task with our private ACE_Thread__Manager 
// although we provide a pointer to an unconstructed object 
// it will work as ACE_Task ctor just saves this pointer for 
// future use 

ACE_Task<ACE_MT_SYNCH> (Smanager) , 

wall (NULL) , mutex (NULL) , manager (), shutdown ( false) , 
n threads (0) , n_elements (0) , 
owner (own) 
{ } 

// start up the service. 

bool Task_test_manager : : Sub_test_manager : : 
use r_open (const unsigned int n_threads, 

const unsigned int n_elements_per_queue) 

{ 

// sanity check : 1 to 7 threads allowed 
if ( (n_threads < 1) 11 (n_threads > 7) ) { 

mlog (LOG_APPLIC_ERROR, "Sub_test_manager ; :user_open: got illegal number" 
" of threads ( %u) . " , n^threads) ; 

return false; 

} 

// set n_elements; no check as this is used only for reserve () 
n_elements = n_elements_per_queue; 

// allocate barrier object. We wait for n_threads + ourselves 
wall = new ACE_Thread_Barrier (n_threads + 1); 
// allocate thread creation mutex 
mutex = new ACE_Thread_Mutex ( ) ; 
if ( (!wall) I I ( !mutex) ) { 

mlog (LOG_ALLOC_ERROR, "Sub__test_manager : :user_open") ; 

if (wall) delete wall; 

if (mutex) delete mutex; 

return false; 

} 

// clear the shutdown flag 
shutdown = false; 
// thread creation 

if (activate (THR_NEW_LWP 1 THR_JOINABLE, n_threads) != 0) { 
mlog(LOG_APPLIC_ERROR, "Sub_test_manager : :user__open: thread " 

"creation error"); 
if (wall) delete wall; 
if (mutex) delete mutex; 
return false; 

} 

// wait for all threads to starup. 
wall->wait ( ) ; 
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// All threads are up and setup 

// Done . . . threads should be now resting against wall barrier, 
return true; 

} 

// start up the service - nothing to do here 

int Task_test__manager : :Sub_test_manager :: open (void *) 

{ 

mlog (LOG__ALL, "Sub_test_manager : :open : starting up threads"); 
return 0; 

} 

// nothing to do here 

int Task_test_manager : : Sub_test_manager : : close (u_long) 
{ 

mlog (LOG_ALL, "Sub_test_manager :: close : shutting down threads"); 
return 0; 

} 

bool Task_test_manager : : Sub_test_manager : :user_close () 
{ 

// ignore call if wall doesn't exist - means that it has already been called, 
if (!wall) { 

mlog (LOG_WARN, "Sub_test_manager : :user_close : called with " 

"no threads running."); 
return false; 

} 

// set the shutdown flag 
shutdown = true; 

// let the threads run on shutdown = true : drop off end and shutdown 
wall->wait ( ) ; 

// wait for threads to shutdown before destroying wall object 

manager .wai t_t ask (this) ; 

// remove barrier object 

delete wall; 

wall = NULL; 

// remove mutex; 

delete mutex; 

mutex NULL; 

// done . . 

return true; 



int Task_test_manager : : Sub_test_manager : :svc(void) 
{ 

// starup of thread . . grab initialization mutex 
mutex->acquire ( ) ; 

// create our private window queue as part of the 

// Sub_test_manager queue container member creation & local reference building 

win__queues .push_back {vector<Sipwin*> () ) ; 

vector<Sipwin*> & queue = win_queues .back ( ) ; 

queue . reserve (n_elements) ; 

// done - release mutex 

mutex->release () ; 

// wait on wall for all threads to finish init 
wall->wait ( ) ; 

// all threads are done with init ... fall into main loop, 
while (true) { 
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Revision 1.69 1999/09/27 08:46:19 joseph-w 

removing defects count, changing static object to member 

Revision 1.67 1999/08/29 11:52:51 rina 
changed due to changes in Unif ied_event . 

Revision 1.66 1999/08/12 12:57:25 meirm 
checking subwindows before forwarding to queue 

Revision 1.65 1999/08/12 12:15:24 sharond 

Adding branch function 

Revision 1.64 1999/06/30 17:22:40 joseph-w 
KAI KCC 3.4a syntax changes 

Revision 1.63 1999/06/^2 17:01:49 shmulik 

Adding 'IGNORE* return status from function on window. 

Handling correctly in tasks (test manager, multislice manager, defects 
handler and in composite function) 

Revision 1.62 1999/06/16 06:07:03 meirm 
dealing with filtered out defects 



Revision 1.61. 1999/06/15 13:17:03 
Adding log message 



shmulik 



Revision 1.60 1999/04/26 06:01:57 shmulik 

removing WITHDRAW__N0N_CONST . Every withdraw will return 

non constant object. 

Revision 1.59 1999/03/07 07:27:11 joseph-w 
KCC std C++ complience + dependecies fix 

Revision 1.58 1999/02/28 08:09:21 joseph-w 
added multithreading support 

Revision 1.56 1999/02/11 14:08:08 sharond 
*** empty log message *** 

Revision 1.55 1999/02/02 14:30:29 shmulik 
sdefects bug fix 

Revision 1.54 1999/01/19 15:05:37 shmulik 
Removing inline from virtual methods 

Revision 1.53 1998/12/29 09:51:04 sharond 
Get rid of some unneccessarily methods 

Revision 1.52 1998/12/23 12:54:33 shmulik 
some minor changes 

Revision 1.51 1998/12/22 16:32:06 meirm 
*** empty log message *** 

Revision 1.50 1998/12/17 15:11:35 shmulik 
enhancments 



12 



APPENDIX "E' 



Revision 1.49 1998/12/09 13:52:25 meirm 
Remove patch on r_code 

Revision 1.48 1998/12/08 14:00:38 sharond 
Enable Forwarding of windows to any destination 

Revision 1.47 1998/11/30 13:41:14 shmulik 
Enhancements in test manager/functions interface (from 
now function returns only OK, ERROR or forward) 

Revision 1.46 1998/11/26 12:03:20 sharond 
Add destination status to windows 



Revision 1.45 1998/11/25 07:03:46 shmulik 

changing methods returning void into methods returning bool , 



Revision 1.44 1998/11/05 15:52:42 
after demo effect 



sharond 



Revision 1.43 1998/10/27 07:08:19 
*** empty log message *** 

Revision 1.42 1998/10/21 09:41:17 
fixed minor memory leak 

Revision 1.41 1998/10/16 17:22:41 
*** empty log message *** 



joseph-w 



shmulik 



Revision 1.40 1998/10/16 11:27:48 shmulik 
Enhancing the treatement of end of scan condition 
for queues data sources and tasks of queues . 

Revision 1.39 1998/10/16 07:33:22 sharond 
*** empty log message *** 

Revision 1.38 1998/10/15 11:06:15 sharond 
*** empty log message *** 

Revision 1.37 1998/10/14 15:18:04 shmulik 
updating defect handler so that it will write defect 
windows - 



Revision 1.36 1998/10/13 06:09:50 joseph-w 

fixed composite task + istream/ostream/input channel tasks 

Revision 1.35 1998/10/08 07:32:18 sharond 
*** empty log message *** 

Revision 1.34 1998/10/06 14:04:16 sharond 
Multi slice Balls handling 

Revision 1.33 1998/09/23 15:00:29 shmulik 
Adding function element to window's private members 
and removing it from sipwinpack. making Win_queue 
to contain pointers to Sipwin instead of pointers to 
Sipeinpack. ^ 

Revision 1.32 1998/09/17 07:32:41 shmulik 
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* Improving output of SIP defects 
* 

* Revision 1.31 1998/09/10 20:02:07 sharond 

* *** empty log message *** 
* 

* Revision 1.30 1998/08/31 09:15:44 yaelm 

* add option to choose type of operation between 2 id-sets in overlap pirn 
regions, through class Set_op. 

; * use Simple_pim: :GetAsPim() instead of direct Pirn building. 
* 

* Revision 1.29 1998/08/25 09:08:20 meirm 

* *** empty log message *** 
* 

* Revision 1.28 1998/08/25 07:52:31 sharond 

* *** empty log message *** 
* 

* Revision 1.27 1998/07/12 13:50:15 meirm 

* *** empty log message *** 
* 

* Revision 1.26 1998/07/09 08:49:36 meirm 

* *** empty log message *** 
* 

* Revision 1.25 1998/06/30 14:01:13 meirm 

* *** empty log message *** 
* 

* Revision 1.24 1998/06/29 10:04:04 meirm 

* *** empty log message *** 
* 

* Revision 1.23 1998/06/10 14:23:53 joseph-w 

* *** empty log message *** 
★ 

* Revision 1.22 1998/06/10 10:02:45 shmulik 

* *** empty log message *** 
* 

* Revision 1.21 1998/06/09 11:25:06 meirm 

* *** empty log message *** 
* 

* Revision 1.20 1998/05/26 05:15:41 shmulik 

* minor fixes 

* Revision 1.19 1998/05/19 17:41:44 shmulik 

* Adding data persistance to data sources and the 

* concept of sync Vs. non_sync data sources used by tasks 
★ 

* Revision 1.18 1998/04/08 07:09:38 eyalk 

* converting to string, to ansi conventions, new factory, etc . . . 
* 

* Revision 1.17 1998/03/22 08:29:18 meirm 

* *** empty log message *** 
* 

* Revision 1.16 1998/03/17 12:47:30 meirm 

* *** empty log message *** 
* 

* Revision 1.15 1998/02/19 07:25:00 eyalk 

* updates of new compiler 
★ 

* Revision 1.14 1998/01/18 19:00:39 shmulik 

* *** empty log message *** 
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* Revision 1.13 1998/01/06 14:11:57 shmulik 

* Replacing all LOG_CONFIG log messages by LOG_APPLIC 
★ 

* Revision 1.12 1997/12/29 07:46:42 yulia 

* Adding NEW logger 
* 

* Revision 1.11 1997/11/04 09:18:00 shmulik 

* *** empty mlog message *** 
* 

* Revision 1.10 1997/10/13 14:18:42 shmulik 

* adding support for sipdata_sip_def ects 
* 

* Revision 1.9 1997/10/12 07:55:10 shmulik 

* *** empty mlog message *** 
★ 

* Revision 1.8 1997/09/25 06:56:21 shmulik 

* adding general_data variable to func DoSetParams 
★ 

* Revision 1.7 1997/07/01 11:46:42 shmulik 

* adding support for production of file of defect windows 
* 

* Revision 1.6 1997/06/02 08:07:49 shmulik 

* regular updating 
* 

* Revision 1.5 1997/05/28 07:32:04 meirm 

* before speed test integration 

* Revision 1.4 1997/05/20 17:56:35 shmulik 

* Purification and bug fixes 
* 

* Revision 1.3 1997/05/01 11:25:38 shmulik 

* *** empty mlog message *** 
* 

* Revision 1.2 1996/11/20 09:18:10 shmulik 

* Improvements in code 
★ 

* Revision 1.1 1996/10/29 16:25:02 shmulik 

* Initial version 



#endif //MP SAFE 
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if ( priority == packer_helper . td_priority ) { 
if ( (y < td_first_line) | | (y > td__last_line) ) 
{ - 

mlog (LOG_APPLIC_ERROR, " FillEventsLis tFromTopDown : " 

"Task %s : Trying to use top down events from line %d. " 
" (top down events are defined only for lines " 
"[%d,%d]"^ NameO, y, td_f irst^line, td_last_line) ; 

return false; 

} 

// move y'th line (containing sorted list of TD events for that line) 

// into list of events. 

// 

list_of_events , splice ( 1 is t_of_e vents . end ( ) , onl_td_events [y] ) ; 

} 

return true; 

} 

// Unmark events that are inside existing windows that intersect the 
// intersection line number index_i_line . 

// 

void 

Task_packer : rUnmarkEventsInsideWindows ( list<Unif ied_event> & events, 

bool * is_event_marked, 
int y, 

int index_i_line) 

{ 

Intersect_line * inline = e_windows->GetIntersectLine ( index_i_line) ; 
// return if list_events is empty 

// 

if ( events . empty ( ) ) return; 

// iterators over list of events, it will point to event on coordinate 
// {(*it).x,y) 

// 

unsigned int i_event = 0; 

list<Unif ied_event> :: iterator it = events . begin () ; 

list<Unif ied_event>: : iterator list_end = events . end () ; 

// mark all events to be candidates for trigegrs for new windows 
for ( unsigned int i = 0; i < events . size () ; ++i ) { 
is__event_marked [ i_event ] = true; 

} 



// If no event windows covering line y. Check if some events in list 
// are covered by previous events in list 
if ( i_line->empty () ) { 

UnmarkEventsInLine (events, is_event_marked) ; 

return; 

} 



// Move to first Xendpoint. Xendpoints iterator will point at an Xendpoint 
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// with coordinate i_line->X(). The list of overlapping windows will 

// contain all event windows overlapping the segment between i_line->X<) 

// and the Xendpoint with smaller X coordinate 

// 

i_line->Xbegin () ; 

// while not_end__of_Xendpoints of intersected event windows 
// and not_end_of_list_of_events . 

// 

while ( ! (i_line->Xend 0 ) ) { 

// Check if there are overlapping event window, 
unsigned int osize = i_line->osize { ) ; 
while ( (*it) .X < i_line->X() ) { 

if ( ! (packer_helper . IgnorelnclusionZone (*it ) ) ) { 
// event *it is not in ignore mode, that is if it is included 
// in a previous defined window, then no it will not be a trigger 
// for window openning. 

// Check if current__event is inside a set of overlapping event^windows . 
int X = ( *it) . x; 

// check if event is inside existing overlapping windows (openned 
// on previous lines 

for (unsigned int iosize = 0; iosize < osize; ++iosize) { 
Sipwinpack * w 

= (Sipwinpack *) (i_line->GetOvelappingWindow ( iosize) ) ; 

// If event is "contained" in some event window, unmark it so that 
// it will not trigger the openning of new event window, 
if ( (y > w->izone_yO) && (y < w->izone_yl) 

(x > w->izone_xO) && (x < w->izone_xl) ) { 
// event *it is inside the i ' th window 
is_event_marked[i_event] = false; 
break; 

} 

} 
} 



+ + it; 

++i_event; 

if ( ! (it != list_end) ) { 

// end of list of events. Check if some marked 

// events can be unmarked because they are inside windows 

// created by previous unmarked events from the same line, 

UnmarkEventsInLine (events, is_event_marked) ; 

return; 

} 



// (*it) .X >= i_line->X() (Possibly we passed past the last event 
// in list. Move to next Xendpoint. 

// 

i line->Xnext ( ) ; 



// Try to unmark more marked events. Such 

// events can be unmarked because they are inside windows 
// created by previous unmarked events from the same line. 
UnmarkEventsInLine (events, is event_marked) ; 
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return; 

} 



// Unmark events in line. We consider all marked events on line 
// If such an event is inside a window openned from previous 
// event from that line, we unmark is 

// 

void 

Task_packer : :UnmarkEventsInLine < list<Unif ied__event> & events, 

bool * is_event_marked) 

{ 

int max_izone_x = -1; 

// return if list_events is empty 

// 

if ( events . empty 0 ) return; 

// iterators over list of events, it will point to event on coordinate 
// ( {*it) .x,y) 

// 

unsigned int i_event = 0; 

list<Unif ied_event> :: iterator it = events . begin () ; 

list<Unif ied_event> :: iterator list_end = events . end {) ; 

// If no event windows covering line y. Check if some events in list 
// are covered by previous events in list 
while ( it != list_end ) { 

// each event that Is candidate to be a trigegr for openning a window 

// should participate 

if ( is_event_marked(i_event] ) { 

bool ignore = packer_helper . IgnorelnclusionZone (*it ) ; 

if ( (lignore) && ((*it).x < max_izone_x) ) { 

// event *it will be inside inclusion zone of previous event 

is_event_marked[i_event] = false; 

} 

else { 

//A window will be openned around *it. 

// We update the max_izone_x so that we will unmark 

// subsequent events event if they are not inside overlapping windows 
// provided that heir x coordinate is smaller than max_izone_x. 
int ixO, iyO/ ixl, iyl; 

packer_helper. InclusionZoneOf Trigger (*it, ixO, iyO, ixl, iyl) ; 
if ( ixl > max_izone_x ) { 
max_izone_x = ixl; 

} 
} 

} 

++it; 

++i_event; 

} 

return; 

) 
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// Create windows only around marked events 

// 

bool 

Task_packer: : AddWindowsForMarkedEvents (list<Unif ied_event> & events, 

bool * is_event_marked, 
int y) 

{ 

int i_event = 0; 
e_windows->BeginUpdate () ; 
bool is_ok; 

for ( list<Unif ied_event> ;: iterator it = events . begin () ; 
it != events . end () ; 
++it ) { 

if ( is_event_marked ( i_event] ) { 

// Create a window and eels and features Sipdata subclasses 
Sipwinpack * winpack = NULL; 
if < ds_trans ) { 

// Create winpack with the transformation that corresponds to line y 
// Pass onl2ref transformation to CreateWinpack 

// for top-down windows we would like to take transformation 
// corresponding to the lowest y coordinate rather that the 
// transformation of the center, 
if { (*it).type == Unif ied_event : : TOP_DOWN ) { 
// top down trigger 
const Sip_topdown & td 

= packer_helper . GetTdEvent ( (*it) . top_down . index) ; 
int y_max ~ (*it) .y + td.radius_y; 
if ( y_max > ds_trans->LargestLine ( ) ) { 

mlog (LOG_STANDARD, " AddWindowsForMarkedEvents : " 

"y_max = %d but last line put in ds_trans = %d.", 
y_max, ds_trans->LargestLine ( ) ) ; 
y_max = ds_trans->LargestLine ( ) ; 

} 

winpack = 

packer_helper .CreateWinpack ( *it, ds_trans->Trans (y_max) , client^id, 

is_ok) ;. 
} 

else { 

winpack = 

packer_helper .CreateWinpack ( *it, ds_trans->Trans <y) , client_id, 

is_ok) ; 

} 
} 

else { 

// no transformation specified, 

// Pass self2aligned transformation to CreateWinpack 
camera2aligned. SetContextRange (CoordSys: : Reference) ; 

winpack = packer_helper .CreateWinpack ( *it, camera2aligned, client_id, 
is_ok ) ; 
} 

if ( winpack ) { 

// sipwinpack contains a non empty definition for a test window 
if ( ! e_windows->PutWindow (winpack) ) { 

mlog (LOG_DERIVED_ERROR, "AddWindowsForMarkedEvents : " 

"Task %s : Failed to put window into system of windows" 
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" from events defined on line %d.", NameO); 
delete winpack; 
return false; 

} 
} 

else { 

// NULL winpack. 
if ( !is_ok ) { 

// failed to create Sipwinpack object. 

mlog (LOG_DERIVED__ERROR, "AddWindowsForMarkedEvents : " ) / 
return false; 

} 

} 

} 

++i_event; 

} 

if ( ! e_windows->EndUpdate ( ) ) { 

mlog (LOG_APPLIC_ERROR, "AddWindowsForMarkedEvents : " 

"Task %s : Failed to integrate window into system of windows. 
Name ( ) ) ; 
return false; 

} 

return true; 



// Pack all events in list inside all windows intersecting the intersect 
// line number index_i_line 

// 

void Task_packer : : PackEvents (int index_i_line, list<Unif ied_event> & events ) 
{ 

Intersect_line * i_line = e_windows->GetIntersectLine (index_i_line) ; 

// return if no event windows covering line y OR if list_events is empty 
if ( i_line->empty ( ) || events . empty () ) { 
return; 

} 

// iterators over list of events, it will point to event on coordinate 
// ( (*it) .x,y) 

// 

list<Unif ied_event> :: iterator it = events . begin () ; 

list<Unif ied_event> :: iterator list_end = events . end () ; 

// Move to first Xendpoint. Xendpoints iterator will point at an Xendpoint 
// with coordinate i_line->X(). The list of overlapping windows will 
// contain all event windows overlapping the segment between i_line->X<) 
// and the Xendpoint with smaller X coordinate 

// 

i_line->Xbegin () ; 

// while not_end_of_Xendpoints of intersected event windows 

// 

while ( ! (i_line->Xend() ) ) { 

// Check if there are overlapping event window. 
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